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EXPERIENCIA Y PRACTICAS EN LOGO 


Otras primitivas 


AS primitivas que explica- 
mos a continuación sólo las 
encontramos en algunas 
versiones de Logo para los 
PC-COMPATIBLES. 
— Pantalla 
Devuelve un número 
que representa el número 
de pantalla utilizada. 
Si sólo hay una pantalla, devuelve un 1. 
Si hay dos pantallas, una color y otra 
monocroma, devuelve un 2. 


NOTA: Si utilizamos más de una panta- 
lla, no podemos utilizar el comando PM. 


? ES PANTALLA 
1 


Utilizando una sola pantalla. 
? ES PANTALLA 
2 


Utilizando dos pantallas, 

PONPANTALLA n 

Fija el texto y el gráfico sobre una o dos 
pantallas, dependiendo del valor de n 

Sin es 1, fija el texto y el gráfico sobre 
una sola pantalla. 

Si n es 2, fija el texto sobre una panta- 
lla y el gráfico sobre la otra. 


Si disponemos solamente de una panta- 
lla y tecleamos: 

?PONPANTALLA 2 

El LOGO mostrará el mensaje de error: 

PERIFERICO NO ACCESIBLE 


NOTA: Si estamos utilizando dos panta- 
llas, la primitiva PM no tendrán ningún efecto. 


— PONCOM n velocidad paridad bits 
stop 


Esta primitiva establece la transmisión 
del puerto serie. 

Para utilizar esta primitiva debes dispoe- 
ner de un adaptador de comunicaciones asín- 
cronas, si no, el Logo mostrará el mensaje de 
error: 


PERIFERICO INACCESIBLE. 

Los datos que indicamos con esta primi- 
tiva pueden ser: 

n 162 
Indica el número del adaptador de comunica- 
ciones asíncronas. 


velocidad 110, 150, 300, 600, 1200, 
2400, 4800 Ó 9600 bau- 
: dios. 
Indica la velocidad de transmisión. 
paridad 0,162 
0 no hay paridad 
1 impar 
2 par 
bits 7118 
stop 162 


Indica el número de "stop bits" 


Esta primitiva la utilizamos para enviar 
información, a través de la salida serie, al dis- 
positivo conectado a ella, por ejemplo, a una 
impresora. 


Gestión de la salida serie 
en el Spectrum 


— .ENTRADASERIE 

Entrada serie (interface RS232). 

Lee todo lo que llega a la entrada serie, 
define la tasa de baudios y devuelve un byte 
entre 0 y 255. 


EXPERIENCIA Y PRACTICAS EN LOGO 


— SALIDASERIE n 
Salida serie (interface RS232). 
Envía un byte a la salida serie. 


Cuadro resumen 


— PANTALLA 

Devuelve un número que representa el 
número de pantalla utilizada. 

Si hay una pantalla, devuelve un 1; si 
hay dos pantallas, devuelve un 2. 


— PONPANTALLA n 

Fija el texto y el gráfico sobre una o dos 
pantallas, dependiendo del valor de n 

Si n es 1, fija el texto y el gráfico sobre 
pantalla, 

Si n es 2, fija el texto sobre una pantalla 
y el gráfico sobre la otra. 

— PONCOM n velocidad paridad bits 
stop. 

Establece la transmisión del puerto se- 
rie. 

— .ENTRADASERIE 

Lee todo lo que llega a la entrada serie, 
define la tasa de baudios y devuelve un byte 
entre 0 y 255. 

— ¡SALIDASERIE n 

Envía un byte a la salida serie. 


MUSICA 1 
Antes de empezar 


Antes de introducirnos en la creación 
de música con el Logo, es conveniente recor- 
dar y repasar unos cuantos conceptos básicos 
que nos faciliten su comprensión. 

La música se origina como consecuen- 
cia de una serie de vibraciones. Estas vibra- 
ciones tienen diferentes frecuencias y dura- 
ción y crean lo que llamamos nota musical. 
Cada una de estas notas produce un tono dife- 
rente. 

Las notas musicales podemos agrupatr- 
las en diferentes escalas. La más frecuente es 
la escala cromática, que está compuesta de 12 
notas y son: 

DO DOF 

RE REF 


MI 

FA PAR 

SOL SOLF 

LA LAF 

SI 

Las notas que van acompañadas del sig- 
no % son las que se denominan sostenidas y 
corresponden a tonos intermedios (semito- 
nos). 

Estos semitonos se llaman sostenidos si 
toman el nombre de la nota superior a ella y 
bemoles si toman el nombre de la nota siguien- 
te a ella. 

Un bemol se representa con el signo: 

La escala que hemos visto anteriormen- 
te equivale a esta otra: 


DO 
RE b RE 
MID mI 
FA 


soLb soL 

LAb LA 

s1b SL 

Al conjunto de las siete notas principa- 
les, DO, RE, MI, FA, SOL, LA y SI se le llama 
octava, pudiéndose tocar estas notas en dife- 
rentes octavas. 


En el teclado de un piano podemos ob- 
servar con claridad lo que hemos explicado: 


Fig. 1. 


Las siete notas principales se pueden 
también expresar con la siguiente nomencla- 
tura internacional: 


DO =C 
RE =D 
MI = E 
FA =F 
SOL = G 
LA=A 
SI =B 


Las diferentes notas que se utilizan para 
componer una pieza musical se van represen- 
tando sobre el pentagrama. 


Un pentagrama es un conjunto de cinco 
líneas paralelas sobre las cuales o bien sobre 
los espacios que existen entre dos de ellas se 
dibuja la nota correspondiente. 


Cada nota tiene un lugar fijo en el pen- 
tagrama: 


Fig. 2. 


Una pieza musical está compuesta por 
un conjunto de notas, pero cada una de estas 
notas puede tener una duración determinada 
y conseguir de esta forma lo que se llama rit- 
mo. 


La duración de una nota se representa 
en el pentagrama con diferentes signos. Estos 
signos son y se denominan: 


e = Redonda 

4 = Blanca 

d = Negra 

Y = Corchea 

F = Semicorchea 
Y = Fusa 


d = Semifusa 


Una duración determinada correspon- 
de a la mitad de la anterior y al doble de la si- 
guiente, es decir, una negra dura la mitad de 
una blanca y el doble de una corchea. 


La duración más larga es la de la redon- 
da y es la que se toma como referencia. 


Si suponemos que la redonda tiene una 
duración de un segundo, podemos fácilmente 
calcular la duración de las demás: 


o = 1 segundo 
a = 1/2 segundo 
Y = 1/4 segundo 
d = 1/8 segundo 
Y = 1/16 segundo 
* = 1/32 segundo 
%- 1/64 segundo 


De esta forma podemos obtener las si- 
guientes equivalencias: 


lo=23=4J=8 =16 =3020 204 4 
14 =24=4=84=164=32 44 

1d =2J=4$=84=164 

17 =2=4P=8 E 

14=2É=48% 

14=2% 


La duración más corta de una nota mu- 
sical es la semifusa. 


Otro elemento que forma parte de una 
composición musical es el silencio o la pausa. 
Estas pausas se pueden intercalar entre dos 
sonidos diferentes y haber más de una segui- 
da. 


Estas pausas o silencios tienen también 
diferentes duraciones. 


La duración de cada nota tiene su 
correspondiente silencio 

Su representación y denominación es la 
siguiente: 


= = Silencio de redonda 

1 = Silencio de blanca 

1 = Silencio de negra 

Y = Silencio de corchea 

Y - Silencio de semicorchea 
= Silencio de fusa 
= Silencio de semifusa 


El silencio de mayor duración es el 
de la redonda y el de menos el de la semifusa. 


La equivalencia de la duración de los si- 
lencios es igual a la de la duración de las no- 
tas: 


EXPERIENCIA Y PRACTICAS EN LOGO 


Una vez que hemos recordado algunos 
conceptos básicos y conocemos los elementos 
fundamentales que intervienen en la composi- 
ción de una pieza musical (sonidos, duracio- 
nes y silencios), podemos estudiar la forma de 
interpretar todo esto con la ayuda del ordena- 
dor y del Logo. 

El próximo tomo comenzaremos a verlo. 


Ejercicios 


1. Define los procedimientos necesa- 
rios para desarrollar el siguiente juego: 

— En la pantalla aparecerán tres pala- 
bras elegidas al azar de una lista previamente 
definida. 

— Tras unos segundos la pantalla se 
borrará y se permitirá al usuario introducir tres 
palabras. 

— Si las palabras introducidas son igua- 
les a las que aparecieron en un principio y 
mantienen el mismo orden, aparecerá en la fila 
correspondiente la palabra CIERTO, si no, apa- 
recerá la palabra FALSO. 

2. Intenta dibujar un boleto de la lotería 
primitiva 

3. Define los procedimientos necesa- 
rios para dibujar sobre un pentagrama la nota 
que se introduzca desde el teclado con una du- 
ración de una negra. 

4, Realiza el mismo proceso anterior, 
pero en esta ocasión con la posibilidad de ele- 
gir también la duración de cada nota. 

5. ¿Son correctas las órdenes siguien- 
tes? 

— ? PRIMITIVA? [AV 30] 

— ?PARA Al 

> DEFINE "T1 [[][AV 4 GD 90 RE 70]] 
> FIN 

— ? ES DEFINIDO? "T1 

— ? PARA A2 

> DEFINE "T2 PONULTIMO [AV 10 


GD 90] TEXTOPROC ”T1 
> FIN 
— ? PARA A3 
> HAZ "B LISTA [SALON CON BAL- 
CON] "ARMARIOS "Y "MOQUETA 
> ES:B 
> FIN 


Solución de los ejercicios 


1: 

Para realizar este juego de memoriza- 
ción de palabras definimos los siguientes pro- 
cedimientos: 

LISTAS almacena en la variable A una 
lista (la que queramos) de palabras. 

Nosotros hemos elegido 13 palabras. 


? PARA LISTAS 

> HAZ "A [CUADRO PUNTO QUESO 
SUR AVE PINTOR 
RAMA COCHE ACEITUNA RAYO 
LEY SOLDADO ESTRELLA] 

> FIN 


El procedimiento ELIGE coge de la lis- 
ta anterior tres palabras al azar. 


? PARA ELIGE 

> HAZ "N CUENTA :A 

> HAZ "Pl (AZAR :N) + 1 
> HAZ "P2 (AZAR :N) + 1 
> HAZ ”"P3 (AZAR :N) + 1 
> FIN 


Palabras presenta en la pantalla las pa- 
labras seleccionadas en ELIGE, cada una en 
una fila distinta. 


? PARA PALABRAS 

PONCT 3 

HAZ 'Kl LISTA ELEMENTO :P1 :A 
HAZ "K2 LISTA ELEMENTO :P2 :A 
HAZ "K3 LISTA ELEMENTO :P3 :A 
PONCURSOR [1 10] 

ES :Kl 

PONCURSOR [1 12] 

ES :K2 

PONCURSOR [1 14] 

ES :K3 

FIN 


VVWVVVVVVVVV 


ma fila aparece la palabra CORRECTO, si no, 
aparece la palabra INCORRECTO, y así con 
las dos palabras restantes. 

? PARA ACIERTOS 

> PONCT 2 

> PONCURSOR [27 10] 

> SI:Kl =:Ll [ES"CORRECTO]|[ES "IN- 

CORRECTO] 

> PONCURSOR [27 12] 

> SI:K2 = :L2 [ES "CORRECTO] [ES "IN- 

CORRECTO] 

> PONCURSOR [27 14] 

> SI:K3 = :L3 [ES "CORRECTO] [ES "IN- 


CORRECTO] 
> FIN 
Fig. 3. 
El procedimiento PREGUN permite que 
se introduzcan desde el teclado y en tres filas 
distintas tres palabras. 
? PARA PREGUN 
> PONCURSOR [15 10] 
> HAZ "Ll LL 
> PONCURSOR [5 12] 
> HAZ "L2 LL 
> PONCURSOR [15 14] 
> HAZ "L3 LL 
> FIN 
Fig. $. 
Finalmente el procedimiento A iniciali- 
za la pantalla y llama a los procedimientos an- 
teriormente definidos. 
? PARA A 
> PT 
Bd 
> LISTAS 
> ELIGE 
> PALABRAS 
> ESPERA 40 
Ho. 4 > BT 
> PREGUN 
ACIERTOS analiza si la primera palabra > PALABRAS 
introducida es igual a la primera palabra que > ACIERTOS 
se presentó en la pantalla; si es así, en la mis- > FIN 


Empieza el juego ejecutando el proce- 


dimiento A. 


PA 
2: 
Para realizar el dibujo del boleto defi- 


nimos el siguiente procedimiento: 


? PARA BOLETO 
OT 
BP 
BT 


L 
PONPOS [-120 -64] 
BL 
PONCL 1 
PONRUMBO 0 
REPITE 2 [AV 150 GD 90 AV 240 GD 


SvvvvvVvvVVV 
u 


] 
> SL 


> PONPOS [-50 -54] 

> BL 

> HAZ'R 3* 48 - 6 

> REPITE 8 [AV 105 GD 90 AV :R GD 

90] 

> PONCL 1 

> REPITE 7 [GD 90 AV 6 Gl 90 AV 105 

RE 105] 

> REPITE 2 [REPITE 6 [GD 90 AV 1 
PONCL 2 GI 90 AV 105 RE 105] 
PONCL 1 
REPITE 7 [GD 90 AV 6 GI 90 AV 105 
RE 105]] 

> GI90 

> PONCL 1 

> REPITE 7 GD 90 AV 7 GI 90 AV:RRE 

R 


> REPITE 7 [GD 90 AV 7 GI 90 AV :R 
RE :R] 

> SL 

> PONPOS [-108 -56] 

> BL 

> PONRUMBO 0 

> REPITE 2 [AV 110 GD 90 AV 40 GD 
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AV 40 

HAZ "P -25 

REPITE 3 [SL PONPOS LISTA -102 :P 
BL AV 34 HAZ "P :P - 7] 

HAZ *P -97 

REPITE 4 [SL PONPOS LISTA :P -15 
BL PONRUMBO O BL AV 65 HAZ "P 


VV VVV 


PONPOS [-103 -54] 
BL 
PONRUMBO O 
REPITE 2[AV 10 GD 90 AV 36 GD 90] 
PONCURSOR [6 5] ES [LOTERIA PRI- 
ITIVA 
SL 
PONPOS [35 60] 
BL 
REPITE 2[AV 20 GD 90 AV 80 GD 90] 
PONCURSOR [25 5] 
ES "118540794 
FIN 
Obtenemos el dibujo del boleto teclean- 
do: 
? BOLETO 


SVvvvvv 


VVVVVVV 


Fig. 6. 


Si te resultan pesados los procedimien- 


90] tos tan largos, desglosa BOLETO en pequeños 
> AV 35 procedimientos y define un procedimiento 
> GD 90 principal que los vaya ejecutando. 
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3: > AV 22 
El primer procedimiento es el que di- > HAZ "INC :INC + 20 
buja el pentagrama: > FIN 


? PARA PENTAGRAMA 
> SL 

> PONPOS [-100 10] 

> PONRUMBO 90 


Por último, englobamos en MUSICA to- 


dos los procedimientos: 


? PARA MUSICA 


> BP 
> REPITE 5 [BL AV 200 GI 90 > BT 
AV 1GI90 AV 200 GD 90 SL > OT 
AV 10 GD 90] > PENTAGRAMA 
> HAZ "INC 0 > FIN 
> INTRO , ) 
> FIN Para ejecutarlo introducimos: 
e ? MUSICA 
INTRO es el que solicita la nota y con- 
trola de cuál se trata. Dependiendo de cuál 4: 


sea se irá a dibujar una negra en el punto de 


En el dimiento INTRO t 
coordenada Y que indica la variable 1: e AO OS 


que realizar los siguientes cambios: 


? PARA INTRO 

PONCURSOR [2 20] 

ES [INTRODUCE UNA NOTA:] 
PONCURSOR [22 20] 

PONCT FONDO 

BO 

PONCT 7 

PONCURSOR [22 20] 

BS 

PONCURSOR [22 20] 

HAZ "N LL 

SI:N = [DO] [HAZ '10 NOTA] 
SI:N =[RE] [HAZ "1 5 NOTA] 
SI :N = [MI] [HAZ "1 10 NOTA] 
SI:N =[FA][HAZ "1 15 NOTA] 
SI :N = [SOL] [HAZ "1 20 NOTA] 
SI:N = [LA] [HAZ "1 25 NOTA] 
SI:N = [SIN [HAZ "1 30 NOTA] 
INTRO 

FIN 

ota es la que dibuja la negra: 

? PARA NOTA 


vvvwvVvVWVWVVVVVVVVVVVYV 


SE 


? PARA INTRO 
PONCURSOR [2 17] 
ES [INTRODUCE LA DURACION] 
PONCT FONDO 
PONCURSOR [25 17] 
ES". 

PONCURSOR [22 20] 
ES "... 

PONCT 7 
PONCURSOR [25 17] 
ES”. 

PONCURSOR [25 17] 
HAZ "D LL 
PONCURSOR [2 20] 
ES (INTRODUCE UNA NOTA:] 
PONCURSOR [22 20] 
ES ”.. 

PONCURSOR [22 20] 
HAZ "N LL 

PONCL 1 

SI :D =[1] [REDONDA] 


VVVVWVVWVVVVVWVVVVVVVVVVVVVVVVV 


E Soo 
; I:D= 
ÓN La SI :D = [4] (CORCHEA] 
E a 
> PONRUMBO 0 o 
> REPITE 10 [AV 2 Gl 36] SI :D = [7] [SEMIPUSA] 
SS. INTRO 
> GI90 AV 2 EIN 
> BL En INTRO se controla en este caso la du- 
> RELLENA ración, y dependiendo de cuál sea, se va a di- 
> RE2GD 90 bujar la nota correspondiente. 
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INTRO1 controla la nota que se ha intro- 


ducido: 


? PARA INTRO1 


VVVVVVVV 


SI :N =[DO] [HAZ "1 0] 
SI :N =(REJ [HAZ 1 5] 
SI :N = [MI] [HAZ 1 10] 
SI :N =[FA] [HAZ "1 15] 
SI :N = [SOL] [HAZ "1 20] 
SI :N =[LA] [HAZ * 25] 
SIN = (SI] [HAZ "1 30] 
FIN 


Para dibujar las notas con las diferentes 
duraciones definimos los siguientes procedi- 


mientos: 


? PARA Pl 


INTRO1 

SL 

PONX -80 + :INC 
PONY 1 

BL 

PONRUMBO 0 

REPITE 10 [AV 2 Gl 36] 
FIN 


? PARA REDONDA 


> 
> 
> 


Pl 
HAZ "INC :INC + 20 
FIN 


? PARA BLANCA 


> 
> 
> 
> 


Pl 

AV 22 

HAZ "INC :INC + 20 
FIN 


? PARA NEGRA 


VVWVWVWVVVVVVVV 


INTRO! 
SL 

PONX -80 + :INC 
PONY :1 

BL 

PONRUMBO 0 
REPITE 10 [AV 2 Gl 36] 
SL 

GI 90 AV 2 

BL 

RELLENA 

RE 2 GD 90 
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> AV 22 
> HAZ "INC :INC + 20 
> FIN 


? PARA CORCHEA 
> Pl 

> SL 

> GI9 AV 2 
> BL 

> RELLENA 
> RE 2GCD 90 
> AV 22 

> GD 90 AV 8 

> HAZ "INC : INC +20 
> FIN 


? PARA SEMICORCHEA 
Pl 

SL 

GI90 AV 2 

BL 

RELLENA 

RE 2 GD 90 

AV 22 

GD 90 AV 8 

RE 8 GD 90 

AV 3 Gl 90 

AV 8 

HAZ "INC : INC + 20 
FIN 


VVVVVVVVVVVVV 


GI90 AV 2 

BL 

RELLENA 

RE 2 GD 90 

AV 22 

GD 90 AV 8 

REPITE 2 [RE 8 GD 90 AV 3 GI90 AV 


HAZ "INC : INC + 20 
FIN 


VVEVVVVVVVVV 


? PARA SEMIFUSA 
A 
> SL 


GI90 AV 2 

BL 

RELLENA 

RE 2 GD 90 

AV 22 

GD 90 AV 8 

REPITE 3[RE8GD 90 AV3GI90 AV 


HAZ "INC :INC +20 
FIN 


VVEVVVVVVV 


Para ejecutar este proceso tendríamos 
que volver a introducir: 


? MUSICA 
5: 
— ? PRIMITIVA? [AV 30] 


INCORRECTO. 


La primitiva PRIMITIVA? no acepta una 
lista como dato. El Logo devuelve el mensaje 
de error: 


PRIMITIVA? NO ACEPTA [AV 30] 
COMO DATO 


— ? PARA-A1L 
> DEFINE "T1 ([] [AV 4 GD 90 RE 
70]] 
> FIN 


CORRECTO 


Cuando ejecutemos Al definiremos el 
procedimiento Tl, que si lo llevamos al editor 
tendrá la forma: 


? PARA Tl 
> AV4GCDO90ORE 70 
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> FIN 
— ? ES DEFINIDO? "T1 


CORRECTO 
El Logo devuelve CIERTO. 


— ? PARA A2 
> DEFINE "T2 PONULTIMO [AV 10 
GD 90] TEXTOPROC "TI 
> FIN 


CORRECTO. 


Cuando ejecutemos A2 se definirá el 
procedimiento T2, que será el procedimiento 
T1 más las órdenes [AV 10 GD 90] 


? PARA T2 

> AV4GD90RE 70 
> AV10GD 90 

> FIN 


— ? PARA A3 
> HAZ "B LISTA [SALON CON BAL- 
CON] "ARMARIOS "Y "MOQUETA 
MENA 
> FIN 


INCORRECTO. 


Si ejecutamos A3 en la pantalla apare- 
cerá el mensaje: 


NO SE QUE DEBO HACER CON Y 


La primitiva LISTA si tiene más de dos 
datos debe ir junto con los datos entre parén- 
tesis. 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


Fantasmas en tu ordenador 


L SPECTRUM es uno de los 

ordenadores menos agra- 

ciados a la hora de realizar 

movimiento. Casi todos los 

demás ordenadores nos 

permiten usar Sprites o grá- 

ficos de distinto tamaño 

para relizar animación. En el 

SPECTRUM, como hay que hacerlo desde BA- 

SIC, el resultado es muy lento y nada satisfac- 

torio. Por ello, vamos a ver un programa en có- 

digo máquina que nos permitirá tener hasta 36 
Sprites a la vez en pantalla. 

Lo primero que tenemos que hacer es 

introducir el programa 1 y ejecutarlo con RUN. 

Una vez hecho esto, el ordenador empezará a 


pedirnos una serie de números. Estos núme- 
ros son el código máquina que nos permitirá 
mover Sprites por la pantalla. Lo único que hay 
que hacer es introducir, uno a uno, todos los 
números que aparecen en la figura |. 


Fig. 1. Orden de definición. 


1 DEF FN m(a,b,c,d)=USR 51312: DEF FN a(a,b)=USR 51131: DEF FN c(a)=USR $0000 
DEF FN ¿()=USR 51162: DEF FN b(a)=USR 51180: DEF FN d(a,b,c,d,e,f,g)=USR 51408 


10 CLEAR 50999 

11 FOR i=51000 TO 51740 

12 INPUT "Numero: ";a 

13 POKE i,a 

14 LET chek=chek+a 

15 NEXT i 

16 IF chek<>80920 THEN GO TO 9000 


20 CLS : PRINT "RUTINA LISTA PARA SER USADA" 


30 PRINT : PRINT : PRINT 

40 PRINT "quieres grabarla? (sVn)” 
50 LET a$=INKEY$ 

60 IF a$="" THEN GO TO 50 


70 IF a$="s" OR a$="S" THEN SAVE “SPRUTES"CODE 51000,731 


80 STOP 
9000 CLS 


9010 PRINT "HAS INTRODUCIDO MAL LOS NUMEROS" 


9020 PRINT 
9030 PRINT "INTENTALO OTRA VEZ" 
9040 STOP 
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221 42 11 92 221 126 4 79 205 1 

202 205 14 200 229 221 225 221 126 2 
7-1 7.87 221 134 0 103 221 126 

377 795 221 134 1 111 58 

111 200 167 202 38 201 221 33 18 202 
71 121 8 14 1 221 126 2 167 32 

17 221 35 221 35 221 35 221 35 221 
35 221 35 221 35 12 24 233 7 7 

7 221 134 0 148 186 56 7 40 5 

237 68 186 48 20 221 126 3 7 7 

7 221 134 1 149 189 56 13 40 11 

237 68 187 56 6 16 200100 

201 8 185 32 38 24 2436 0 

201 221 42 11 92 221 126 4 205 1 

202 205 14 200 221 70 12 229 221 225 
197 205 40 201 193 221 112 4 205 40 
201 201 175 50 111 200 33 18 202 17 
19 202 1 245 0 54 O 237 176 201 

221 42 11 92 221 126 4 205 1 202 

205 14 200 229 221 225 58 141 92 221 
119 4 205 40 201 221 54 2 O 33 

111 200 53 201 167 202 38 201 254 37 
210 38 201 84 93 19 19 26 167 192 

33 73 200 229 62 1 205 1 22 6 

19 225 128 215 35 16 251 237 75 69 
92 205 27 268 62 58 215 253 78 13 

6 0 205 27 26 253 203 1 110 40 

250 207 255 83 112 114 105 116 101 32 
110 111 32 100 101 102 105 110 105 100 
111 32 83 112 114 105 116 101 32 121 
97 32 100 101 102 105 110 105 100 111 
32 0 221 42 11 92 221 126 4 205 

1 202 205 14 200 229 221 126 12 254 
192 210 38 201 71 35 35 126 7 7 

7 128 254 192 210 38 201 221 126 20 
79 35 126 7 7 7 129 218 38 201 

221 86 29 221 94 28 221 225 221 126 


Hay que tener mucho cuidado para no 
equivocarnos al introducir los números. De to- 
das formas, en caso de que lo hagamos, el or- 
denador nos avisará. 

Una vez que hemos metido todos los nú- 
meros sin problemas, el ordenador nos pre- 
gunta si queremos grabar el programa en có- 


1 DEF FN m(a,b,c,d)=USR 51312: DEF FN 


4 245 213 197 58 141 92 221 119 4 
205 40 201 193 209 241 221 119 4 221 
112 0 221 113 1 221 115 5 221 114 

6 205 40 201 201 221 42 11 92 221 
128 4 205 1 202 84 93 19 19 26 

167 40 6 33 92 200 195 33 200 229 
221 126 12 119 71 221 126 20 35 119 
79 254 192 48 49 35 221 126 28 119 

7 128 254 192 48 36 35 221 

36 119 7 7 7 129 56 25 35 

126 44 119 221 126 52 35 119 221 
53 35 119 221 225 205 40 201 33 
200 52 201 207 10 221 126 4 8 
70 2 221 78 3 221 102 0 221 

110 1 81 92 213 125 230 7 245 214 

7 237 68 87 135 130 50"189 201 205 
212 201 221 86 6 221 94 5 121 72 

245 229 197 197 229 205 244 201 8 119 
8 225 6 8 26 205 185 201 174 119 

121 44 174 119 45 205 170 201 19 16 
239 193 16 225 193 225 44 65 241 61 
194 84 201 65 17 32 0 205 244 201 
241 40 11 8 119 25 18 252 8 167 

193 4 24 12 235 38 O 104 41 41 

41 41 41 25 45 193 121 230 7 200 

8- 119 45 16 252 201 36 124 230 7 

192 62 32 133 111 216 124 214 8 103 
201 14 0 167 24 251 31 203 25 31 

203 25 31 203 25 31 203 25 31 203 

25 31 203 25 31 203 25 201 84 93 

122 230 192 31 31 31 246 64 103 122 
230 56 23 23.111 122 230 7 180 103 
123 203 63 203 63 203 63 133 111 201 
124 230 24 203 47 203 47 203 47 198 
88 103 201 33 18 202 22 0 95 8 

29 123 7 7 7 147 95 25 8 201 
0000000000 
0000000000 


digo máquina. Lo normal es contestar que sí y 
almacenarlo en una cinta de cassette que esté 
limpia. Se recomienda dejar que pase la cinta 
durante dos o tres minutos sin grabar nada y, 
luego grabar la rutina. Esto es porque antes 
de la rutina tendremos que grabar el progra- 
ma 2. 


a(a,b)=USR 51131: DEF FN c(a)=USR 50000 


: DEF FN i()=05R 51162; DEF FN b(a)=USR 51180: DEF FN d(a,b,c,d,e, f,g)=USR 51405 


10 CLEAR 50999: LOAD 
20 CLS : 


“"CODE 51000, 731 


Este segundo programa tiene en la lí- 
nea número 1 todas las definiciones necesa- 
rias para poder utilizar las rutinas de Sprite. 
La línea 10 se encarga de hacer el CLEAR ne- 
cesario para alojar a la rutina y de leerla y al- 
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PRINT "RUTINA LISTA PARA SER USADA" 


macenarla en memoria. La línea 20 nos dice 
que la carga se ha efectuado sin problemas, 
por lo que no sirve para mucho y se puede 
borrar, 

La importancia de este programa resi- 


de en la línea 1. Esta línea tendrá que estar in- 
cluida en todos los programas en los que uti- 
licemos Sprites. 

Para todos aquellos a los que les intere- 
se el listado fuente de la rutina, aparece a con- 
tinuación: 


II ES 


1001 ;x * 
1002 ;* CONTROLADOR * 
1003 ;¡* DE * 
1004 ;* SPRITES * 
1005 ¡* * 
1008 AMOS oooO toos 
1007 ; 

1008 ORG — 51000 
1009 ; 

1010 ; DETECCION DE CHOQUE 
1011 ,; 

1012 CHOKE LD IX, (DEFADD) 
1013 LD A, (1X+4) 
1014 LD 0,58 

1015 CALL MAKHL 
1016 CALL CHECK 
1017 PUSH HL 

1018 POP IX 

1019 LD A, (IX+2) 
1020 RLCA 

1021 RLCA 

1022 RLCA 

1023 LD D,A 
1024 ADD A, (1X+0) 
1025 LD H, A 

1026 LD A, (1X+3) 
1027 RLCA 

1028 RLCA 

1029 RLCA 

1030 LD E,A 

1031 ADD A, (1X+1) 
1032 LD L,A 

1033 LD A, (NOSPR) 
1034 AND A 

1035 JP Z, RANGERR 
1036 LD 1X, INDEX 
1037 LD B,A 

1038 LD A,C 
1039 EX AF, AF 
1040 LD ¡o l 

1041 MARCH 

1042 LD A, (IX+2) 
1043 AND A 

1044 JR NZ, OK 
1045 LECH INC IX 

1046 INC  1X 

1047 INC IX 

1048 INC IX 

1049 INC IX 

1050 INC IX 

1051 INC IX 

1052 INC C 

1053 JR MARCH 
1054 OK 

1055 RLCA 

1056 RLCA 

1057 RLCA 

1058 ADD A, (IX+0) 
1059 SUB H 
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1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 


1091 ; 


1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 


1105 ; 
; INICIALIZANDO EL SISTEMA 


1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 


1116 ; 


1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 


OKX LD 


SIG 


DADO EX 


MUERT LD 
RET 
, 


; CAMBIA EL 


CAMBC — LD 
LD 
CALL 
CALL 


LD 
CALL 
RET 


A 
INIT  XOR 


NC, SIG 
A, (1X+3) 


AF, AF 


NZ, MUERT 
AF, AF 
SIG 

B,O 


COLOR 


IX, (DEFADD) 
A, (1X+4) 
MAKHL 
CHECK 

B, (IX+12) 
HL 

IX 

BC 
SPRITE 
BC 
(1X+4),B 
SPRITE 


A 
(NOSPR),4A 
HL, INDEX 
DE, INDEX+1 
BC, 245 
(HL),0 


; BORRANDO DEFINICION 


; Y SPRITE 


BORRA LD 
LD 
CALL 
CALL 
PUSH 
POP 
LD 
LD 
CALL 
LD 
LD 


IX, (DEFADD) 
A, (1X+4) 
MAKHL 
CHECK 

HL 

IX 

A, (23693) 
(1X+4),4 
SPRITE 
(IX+2),0 
HL, NOSPR 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


1131 DEC — (HL) 1202 PUSH AF 
1132 RET 1203 PUSH DE 
1133 CHECK AND A 1204 PUSH BC 
1134 JP Z, RANGERR 1205 LD A, (23693) 
1135 cP 37 1206 LD (1X+4),A 
1136 JP NC, RANGERR 1207 CALL SPRITE 
1137 LD D,H 1208 POP BC 
1138 LD' "E, L 1209 POP DE 
1139 INC — DE 1210 POP AF 
1140 INC DE 1211 LD (1X+4),4 
1141 LD A, (DE) 1212 LD (IX+0),B 
1142 AND A 1213 LD (IF O 
1143 RET NZ 1214 LD (IX+5),E 
1144 LD HL, MSG 1215 LD (1IX+6),D 
1145 ERROR PUSH HL 1216 CALL SPRITE 
1146 LD A,l 1217 RET 
1147 CALL 41601 1218 ; 
1148 LD' B,19 1219 ; DEFINIENDO UN SPRITE 
1149 POP. HL 1220 ; 
1150 ERRP LD A, (HL) 1221 DEFSPR LD TX, (DEFADD) 
1151 RST 16 1222 LD A, (1X+4) 
1152 INC BL 1223 CALL MAKHL 
1153 DJNZ ERRP 1224 LD. D,H 
1154 LD BC, (23621) 1225 LD E,L 
1155 CALL *$141B 1226 INC DE 
1156 LD A, 58 1227 INC DE 
1167 RST-- 16 1228 LD A, (DE) 
1158 LD  C,(IY+13) 1229 AND A 
1159 LD B,0 1230 JR Z, CREA 
1160 CALL +tt141B 1231 LD HL, MSG1 
1161 WAIT BIT 5,(IY+1) 1232 JP ERROR 
1162 JR Z, WAIT 1233 CREA PUSH HL 
1163 RST 8 1234 LD A, (1X+12) 
1164 DEFB $FF 1235 LD (BL), A 
1165 MSG DEFM '*Sprite no def inido * 1236 LD B,A 
1166 MSG1 DEFM *Sprite ya def inido ” 1237 LD A, (1X+20) 
1167 NOSPR  DEEB- 0 1238 INC HL 
1168 ; 1239 LD (HL),A 
1169 ; MOVIENDO UN SPRITE 1240 LD 8 
AIOA 1241 CP 192 
1171 MOVE LD TX, (DEFADD) 1242 JR NC, RANGERR 
1172 LD A, (1X+4) 1243 INC HL 
1173 CALL MAKHL 1244 LD A, (IX+28) 
1174 CALL CHECK 1245 LD (HL), A 
1175 PUSH HL : 1246 RLCA 
1176 LD A, (IX+12) 1247 RLCA 
1177 CP. 192 1248 RLCA 
1178 JP NC, RANGERR 1249 ADD A,B 
1179 LD B,A 1250 cP 192 

his 1180 INC HL 1251 JR NC, RANGERR 
1181 INC HL 1252 INC HL 
1182 LD A, (HL) 1253 LD A, (IX+36) 
1183 RLCA 1254 LD (HL),A 
1184 RLCA 1255 RLCA 
1185 RLCA C1256 RLCA 
1186 ADD A,B 1257 RLCA 
1187 cP 192 1258 ADD A,C 
1188 JP NC, RANGERR 1259 JR C, RANGERR 
1189 LD A, (1X+20) 1260 INC HL 
1190 LD. C,jA 1261 LD A, (7+44) 
1191 INC HL 1262 LD (HL.,A 
1192 LD A, (HL) 1263 LD A, (1X+52) 
1193 RLCA 1264 INC HL 
1194 RLCA 1265 LD  (HL),A 
1195 RLCA 1266 LD A, (1IX+53) 
1196 ADD" A,C 1267 INC BL 
1197 JP C, RANGERR 1268 LD (BL),A 
1198 LD D, (1X+29) 1269 POP IX 
1199 LD E, (1X+28) 1270 CALL SPRITE 
1200 POP IX 1271 LD HL, NOSPR 
1201 LD A, (IX+4) 1272 INC (BL) 
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1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1338 
1337 
1338 
1339 
1340 
1341 
1342 
1343 


RET 


RANGERR 


, 


3 PONE 


SPRITE 


PON3 


PON2 


PON 


BUCLE 


DEFB 


RST 8 
10 ¡OUT OF RAN GE. 


UN SPRITE 


LD 
PUSH 
LD 
AND 
PUSH 
SUB 
NEG 
LD 
ADD 


A, (1X+4) 
AF, AF 

B, (1X+2) 
C, (1X+3) 
A, (1X+0) 
L, (1X+1) 
D,C 


D,A 
BA 
A,D 
(REL+1),A 
DIR 

D, (1X+6) 
E, (1X+5) 
A,C 

C,B 


AF 
Z,EXCES1 
AF, AF 
(BL),A 
HL, DE 
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1344 
1345 
1346 
1347 
1345 
1549 
1350 
1351 
1352 
1353 
1354 
1355 
1358 
1357 
1358 
135 

1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 


1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
C1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 


EXCES1 


EXCES 


BUCLE2 


NEXTH 


SHIFT 


REL 


DIR 


DJNZ 
EX 
AND 
POP 
INC 
JR 
EX 
LD 
LD 


RRA 


RRA 


BUCLE 
AF, AF 
A 

BC 

B 
EXCES 
DE, HL 
H,0 
L,B 
HL, HL 
HL, HL 
HL, HL 
HL, HL 
BL, HL 
BL, DE 
L 

BC 
A,C 


= 


5 
N 


TO>OQr>> 2 >= 
= > rua 


> 


D,H 
E,L 
A,D 
%11000000 


>r 
> 
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1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 INDEX 

1449 DEFADD EQU 


AND 
OR 
LD 
LD 
SRL 
SRL 
SRL 
ADD 
LD 
RET 
COLOR * 
LD 
AND 
SRA 
SRA 
SRA 
ADD 
LD 
RET 
LD HL, INDEX 
LD 
LD 
EX 
DEC 
LD 
RLCA 
RLCA 
RLCA 
SUB 
LD 
ADD 
EX 
RET 


CP AAA 
ÉH> 


> E 


MAKBL 


23563 


El programa es muy sencillo de utilizar 
y podremos hacerlo desde el Basic. Para ello 
sólo necesitamos, como ya se ha dicho, incluir 
la línea número 1 del programa número 2 en 
todos los programas donde queramos utilizar 
Sprites y, por supuesto, cargar la rutina en có- 
digo máquina en la memoria del ordenador. 

Las funciones que podemos realizar, to- 
das desde el BASIC, son las siguientes: 


— Inicializar el sistema, 

— Definir un Sprite. 

— Mover un Sprite de una posición de 
la pantalla a otra. 

— Dar colores a los Sprites. 

— Borrar un Sprite, 

— Detectar si un Sprite ha chocado con 
otro. 


Para realizar todas estas funciones utili- 
zaremos funciones definidas (las de la línea 1) 
de la forma FN ver (parámetros). Conviene 
asignar el resultado de la función a una varia- 
ble que no utilicemos en el programa, ya que 
si utilizamos dichas funciones con RANDOMI- 
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ZE el resultado de los números aleatorios pro- 
ducidos por RND será muy monótono, y como 
los Sprites se suelen utilizar en juegos, éstos 
nos saldrán poco aleatorios, 

Las funciones, tal y como están defini- 
das en la línea número 1, son: 


FN 10 = Inicializa el sistema. Al princi- 
pio del programa habrá que poner una ins- 
trucción parecida a LET ZZZZ = FN I( para po- 
der utilizar los Sprites. Obsérvese que la va- 
riable utilizada ZZZZ no tiene aspecto de que 
se vaya a utilizar para otra función en todo el 
programa. No es necesario, ni acepta, ningún 
parámetro. 

FN D (No. Sprite, Y, X, H, A, C, D) = Nos 
permite definir un Sprite. El significado de los 
parámetros es el siguiente: 

No. Sprite = Número de Sprite que es- 
tamos definiendo. Ha de ser un número entre 
1 y 36. Si el Sprite ya ha sido definido, el sis- 
tema nos dará un error. 

X = Coordenada en X en alta resolu- 
ción donde queremos que aparezca el Sprite. 

Y = Coordenada en Y en alta resolución 
donde queremos que aparezca el Sprite. 

H = Altura del Sprite medida en carac- 
teres. 

A = Anchura del Sprite medida en ca- 
racteres. 

C = Color del Sprite al colocarlo en la 
pantalla. El número que pongamos ha de te- 
ner el siguiente formato: 


C = PAPER + 8"INK + 64*BRIGHT + 128"FLASH 


si, por ejemplo, queremos un color en brillo, 
amarillo, con papel azul oscuro y sin flash, ten- 
dremos que poner: 


C=14+6'8 + 64*1 + 128'0 = 113 


D = Dirección de memoria donde está 
definido el Sprite. La forma de definirlo es la 
siguiente: primero el primer carácter, luego, 
si hay más de una columna, el que esté deba- 
jo del primero, y así sucesivamente hasta com- 
pletar la primera columna. Entonces empeza- 
mos con la segunda columna hasta terminarla. 
Esto se repite hasta que terminamos todas las 
filas. La figura 1 nos muestra el orden de de- 
finición de un Sprite de 3 x caracteres. 

FN M (No. Sprite, Y, X, D) = Nos permi- 
te mover un Sprite desde su posición actual a 
una nueva. No. Sprite es el número de Sprite, 
X e Y son las coordenadas de la pantalla don- 


de queremos posicionarlo. D es la dirección 
donde se encuentra definido el Sprite. 

FN A (No. Sprite, C)= Nos sirve para 
cambiar el color de un Sprite. No. Sprite es el 
número de Sprite y C es el nuevo color que 
queremos que tenga. 

FN B (No. Sprite) = Nos borra la defini- 
ción del Sprite. 

FN C (No. Sprite) = Nos permite saber 
si hemos chocado con otro Sprite. En caso ne- 
gativo nos devuelve un cero (0). En caso afir- 
mativo nos devuelve el número de Sprite con 
el que hemos chocado. Si chocamos con dos o 
más a la vez, nos devuelve el número más bajo 
de todos. 

Es muy importante saber que, debido a 
que el programa utiliza la operación XOR para 
borrar un Sprite de su posición en la pantalla 
antes de colocarlo en una nueva posición, 
cuando chocan dos Sprites se produce una 
cierta confusión gráfica. en la zona de pantalla 
donde esto ocurre. Una buena solución para 
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eliminar esta molestia es borrar los dos Spri- 
tes en conflicto. 

La rutina, aparte de imprimir el mensa- 
je de "Error out of range” cuando al definir o 
mover un Sprite nos salimos de la pantalla, 
añade al sistema operativo dos nuevos erro- 
res: "Sprite no definido" y “Sprite ya definido" 
cuando se intenta hacer algo con un Sprite que 
no existe o cuando ya está definido e intenta- 
mos redefinirlo sin haberlo borrado anterior- 
mente. Por lo demás, los mensajes de error sa- 
len en el formato de siempre, indicando nú- 
mero de líneas y sentencia dentro de la línea 
donde se ha producido el error. 

Ya para terminar, decir que al llamar a 
las sentencias FN, podemos incluir en la ex- 
presión cualquier tipo de fórmula que dé un 
resultado esperado. Por ello, uña línea como 
la siguiente siempre será aceptada. 


LET ZZZZ =FN D (cont, y + Cy, x= 
CX, 2, 2, VAL P$, USR “A”) 


TRUCOS Y RUTINAS BASICAS 


ONTINUANDO con los pro- 


gramas de 


representación 


de funciones en dos dimen- 


siones para 


todos los orde- 


nadores, vamos a ver a con- 
tinuación un programa que 
nos permitirá representar 
cualquier función por com- 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
11180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
13860 


plicada que sea en nuestro IBM pc y compati- 
ble, 

El programa ha sido desarrollado bajo 
GWBASIC para así poder ser utilizado por to- 
dos los compatibles del mercado que tengan 
este BASIC. 


REM AOS lalolalalajalalojolalafok 


REM * 


* 


REM* FUNCIONES GRAFICAS xk 


REM OOOO Olalla lalalala lalalala lalalala 


REM ASSOSIO SOS iaalolalolak 


REM * 


REM * (c) Ediciones Siglo Cultural 


REM * 
REM * (c) 1987 
REM * 


KK A 


IS 


SCREEN 2 
REM 


REM AO lO OO 
REM x*xx* INICIALIZACION vox 
REM AMS SOS IOIOIOIOIOIOioK 


REM 

OPTION BASE 1 
DIM A(3) 

LET Al=1 

LET A2=1 

LET X5=0 
LET AU=1 
DIM AU(2) 
DIM Ki$(7) 
LET K1$(1)=" 
LET Ki$(2)=" 
LET K1$(3)=" 
LET K1$(4)=" 
LET K1$(5)=" 
LET K1$(6)=" 
LET K1$(7)=" 
KEY OFF 


ZONA 
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TRUCOS Y RUTINAS BASICAS 


1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1840 
1650 
168680 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
el, 1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1980 
1970 
1980 
1990 
2000 
2010 
2020 


FOR I=1 TO 10 
KEY 1," 
NEXT I 
KEY 1,CAR$(13)+"GOTO 5700"+CHR$(13) 
REM 
REM Saad lElalalala lalalala lalala lalo lololalolalok 
REM *kx PROGRAMA PRINCIPAL "MENU" x*xx* 
REM Aaa lalalaalololalalialalalalalalalalololalololok 
REM 
VIEW 
CLS 
LOCATE 2,32 
PRINT "GRAFICAS" 
PRINT TAB(32); "===e====s=es===" 
PRINT:PRINT: PRINT 
DEF FN Y(X)=X/SIN(X) 
PRINT:PRINT:PRINT:PRINT:PRINT 
PRINT SPC(29);"1...Dibujar grafica." 
PRINT SPC(29);"2...Escribir formula. ” 
PRINT SPC(29);"3...Definir formato." 
PRINT SPC(29);"4...Salir del programa. " 
PRINT: PRINT: PRINT 
PRINT:PRINT:PRINT 
LOCATE 24,31 
PRINT " <<ELIGE OPCION>>"; 
LET K$=INKEYS 
IF K$="" THEN GOTO 1620 
LET K=ASC(K$)-48 
IF K<1 OR K>4 THEN GOTO 1620 
ON K GOSUB 2070, 1980, 1710, 1880 
GOTO 1460 
CLS 
END 
REM 
REM AOS aloja lalo llalollalokok 


REM x*x*x* SELECCION DEL FORMATO xx 
REM SOS lalalala lololalolo lok 
REM 

CLS 

PRINT 

PRINT" DEFINICION DEL 


PRINT "=o=cc=cccccccecccccccccecccccce=== 
PRINT 
PRINT 
RESTORE 
FOR F=1 TO 7 
READ AFS$ 
READ NE$ 
READ ME$ 
PRINT MES; 
IF F=86 THEN PRINT "Margen cuando XY 
PRINT K1$(F);")";CHR$(29);CHR$(29); 
LET K$=INKEY$ 
IF K$="" THEN GOTO 1890 


FORMATO" 


==> infi. ("; 


IF ASC(K$)>90 THEN LET K$=CHR$(ASC(K$)-32) 


IF K$<>"" THEN IF K$=AF$ OR K$=NES THEN LET K1$(F)=K3 


IF K$<>AF$ AND K$<>NE$ THEN PRINT ELSE PRINT K1$(F) 


NEXT F 

RETURN 

REM 

REM OOOO loalalalalalalalalolalalalalolalolojolak: 
REM Xxx CAMBIO DE LA FUNCION xx 
REM OSO lalalalalalalojololololalolok 
REM 

CLS 

LOCATE 22,21 
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2030 PRINT "Cambiar la ecuacion y pulsar F1"; 
2040 LOCATE 10,20 

2050 EDIT 1520 

2080 GOTO 1460 

2070 CLS 

2080 REM 

2090 REM AdMSaOSSalaalalalalalolojolok 

2100 REM *x%x* DIBUJA EJES x*xx 

2110 REM AdMaOoSoSSalOlolalolalolololololok 

2120 REM 

2130 REM **x* DIBUJO DEL RECUADRO xxx 
2140 REM 

2150 VIEW(240,0)-(639, 199) 

2180 WINDOW(-200,-200)-(200,200) 
2170 LINE(-200,0)-(-200,200),1 
2180 LINE(-200,200)-(200,200), 1 
2190 LINE(200,200)-(200,-200), 1 
2200 LINE(-200,0)-(-200,-200), 1 
2210 LINE(-200,-200)-(200,-200), 1 
2220 REM 

2230 REM *x* DIBUJO DEL EJE X xxx 
2240 REM 

2250 IF K1$(2)="N" THEN GOTO 2370 
2260 LINE(5,38)-(-5,38),1 

2270 LINE(5,76)-(-5,76),1 

2280 LINE(5,114)-(-5,114),1 

2290 LINE(200,0)-(-200,0), 1 

2300 LINE(5,152)-(-5,152),1 

2310 LINE(5,190)-(-5,190), 1 

2320 LINE(5,-38)-(-5,-38),1 

2330 LINE(5,-76)-(-5,-76),1 

2340 LINE(5,-114)-(-5,-114),1 

2350 LINE(5,-152)-(-5,-152),1 

2360 LINE(5,-190)-(-5,-190),1 

2370 PSET(O, 0) 

2380 REM 

2390 REM *** DIBUJO DEL EJE Y x*xx*x* 
2400 REM 

2410 IF K1$(3)="N" THEN GOTO 2530 
2420 LINE(O0,200)-(0,-200), 1 

2430 LINE(38,5)-(38,-5),1 

2440 LINE(76,5)-(76,-5),1 

2450 LINE(114,5)-(114,-5),1 

2460 LINE(152,5)-(152,-5),1 

2470 LINE(190,5)-(190,-5), 1 

2480 LINE(-38,5)-(-38,-5),1 

2490 LINE(-76,5)-(-76,-5),1 

2500 LINE(-114,5)-(-114,-5),1 

2510 LINE(-152,5)-(-152,-5),1 

2520 LINE(-190,5)-(-190,-5),1 

2530 IF K1$(7)="S" THEN GOSUB 5390 
2540 REM 

2550 REM aaa lalOloloiIoK 
2560 REM x*x*k* SELECCION DE ESCALA Y AUMENTO xxx 
2570 REM aaa OOOO lalola jolla lOIOoloKKk 
2580 REM 

2590 LOCATE 1,1 

2600 PRINT “Escala del eje X:";A1 
2610 LOCATE 1,19 

2820 INPUT "",A1S 

2630 IF A1l$<>"" THEN LET A1=VAL(A1$) 
2840 LOCATE 1,19 

2650 PRINT A1;" 

2880 LOCATE 2,1 

2670 PRINT "Escala del eje Y:";A2 
26880 LOCATE 2,19 

2690 INPUT "",A2$ 
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2700 
2710 
2720 
2730 
2740 
2750 
2780 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 


2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3080 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 

y 3160 

, 3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 


IF 


A2$<>"" THEN LET A2=VAL(A2$) 


LOCATE 2,19 

PRINT A2;"  " 

LOCATE 12,31 

PRINT X=";INT(1000*200/A1)/1000 
LOCATE 1,58 

PRINT "Y=";INT(1000*x200/42)/1000 
LOCATE 3,1 

LET AU(1)=0 

PRINT "Ampliacion en eje X (0-9)";AU(1) 
LOCATE 3,27 

INPUT ”",AU$(1) 

LOCATE 3,27 

PRINT AU$(1) 


IF 
IF 
IF 
IF 
IF 
IF 


AU$(1)<>"" AND AU$(1)<>"0" THEN GOTO 2850 ELSE GOTO 2900 
AU$(1)<>"1" AND AU$(1)<>"2" THEN GOTO 2880 ELSE GOTO 2900 
AU$(1)<>"3" AND AU$(1)<>"4" THEN GOTO 2870 ELSE GOTO 2900 
AU$(1)<>"5" AND AU$(1)<>"8" THEN GOTO 2880 ELSE GOTO 2900 
AU$(1)<>"7" AND AU$(1)<>"8" THEN GOTO 2890 ELSE GOTO 2900 
AU$(1)<>"9" THEN GOTO 2770 


LOCATE 4,1 

LET AU(2)=0 

PRINT "Ampliacion en eje Y (0-9)";AU(2) 
LOCATE 4,27 

INPUT "",AU$(2) 

LOCATE 4,27 

PRINT AU$(2) 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


AU$(1)<>"" AND AU$(1)<>"0" THEN GOTO 2980 ELSE GOTO 3030 
AU$(1)<>"1" AND AU$(1)<>"2" THEN GOTO 2990 ELSE GOTO 3030 
AU$(1)<>"3" AND AU$(1)<>"4" THEN GOTO 3000 ELSE GOTO 3030 
AU$(1)<>"5" AND AU$(1)<>"8" THEN GOTO 3010 ELSE GOTO 3030 
AU$(1)<>""7" AND AU$(1)<>"8" THEN GOTO 3020 ELSE GOTO 3030 
AU$(1)<>"9" THEN GOTO 2900 

AU$(1)="" THEN AU(1)=1 

AU$(1)="0" THEN AU(1)=10 

AU$(1)="1" THEN AU(1)=20 

AU$(1)="2" THEN AU(1)=30 

AU$(1)="3" THEN AU(1)=40 

AU$(1)="4" THEN AU(1)=50 

AU$(1)="5" THEN AU(1)=60 

AU$(1)="6" THEN AU(1)=70 

AU$(1)="7" THEN AU(1)=80 

AU$(1)="8" THEN AU(1)=90 

AU$(1)="9" THEN AU(1)=100 

AU$(2)="" THEN AU(2)=1 

AU$(2)="0" THEN AU(2)=10 

AU$(2)="1" THEN AU(2)=20 

AU$(2)="2" THEN AU(2)=30 

AU$(2)="3" THEN AU(2)=40 

AU$(2)="4" THEN AU(2)=50 

AU$(2)="5" THEN AU(2)=80 

AU$(2)="6" THEN AU(2)=70 

AU$(2)="7" THEN AU(2)=80 

AU$(2)="8" THEN AU(2)=90 

AU$(2)="9" THEN AU(2)=100 

K1$(4)="S" THEN GOTO 3350 


REM 

REM ARSS Olalla jala lalalala lok 
REM *** SELECCION DE PASO (STEP) xxx 
REM AAAMOOO lilolololkok 
REM 

LOCATE 5,1 

PRINT “STEP: ";8 

LOCATE 5,7 

INPUT "",S 


IF 


K1$(4)="S" THEN LET S=2/A1:LOCATE 5,1:PRINT "STEP: Autom.";S 
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3360 IF S=0 THEN LET S=2/A1 

3370 IF K1$(1)="T" THEN GOTO 4430 

3380 GOTO 3410 

3390 END 

3400 REM 

3410 REM alado lalalala lalalalalalalalaalalola lala ialalalolojolok 

3420 REM *** TRATAMIENTO GRAFICO DE LAS FUNCIONES xk 

3430 REM Roald dlaalalalalala lalalala lalalala lalalala 

3440 REM 

3450 REM ASS liok 

3460 REM **x* DIBUJAR CON PUNTOS x*x*x* 

3470. REM ooo 

3480 REM 

3490 REM x*xx* DIBUJO DE F(X) x*xkxk 

3500 REM 

3510 ON ERROR GOTO 5340 

3520 LOCATE 8,1 

3530 PRINT "Funcion: f(x)" 

3540 PRESET(X5, 0) 

3550 LET XPOS=X5 

3580 LET YPOS=0 

3570 FOR X=X5 TO 200/41 STEP $S 

3580 IF Ki$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" ":+LOCATE 7,1:PRINT 
NA SNROSS/" Y 

3590 IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 3870 

3800 IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 

N GOTO 3710 

3610 LET PX=INT(X*A1*AU(1)) 

3620 LET XPOS=PX 

3630 LET PY=0 

3640 LET PY=INT(FN Y(X)*A2*AU(2)) 

3650 LET YPOS=PY 

3660 PSET(PX, PY) 

3870 NEXT X 

3680 REM 

3690 REM *x*x* DIBUJO DE F(-X) *x*xk 

3700 REM 

3710 LOCATE 8,1 

3720 PRINT "funcion: f(-x)" 

3730 PRINT SPACE3(28) 

3740 PRESET(-200/A1, 0) 

3750 LET XPOS=-200/A1 

3780 LET YPOS=0 

3770 FOR X=-200/A1 TO X5 STEP $ 

3780 IF Ki$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" “:LOCATE 7,1:PRINT 
"Y: *¡YPOS;" L 

3790 IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 3870 

3800 IF Ki$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 

N GOTO 3910 

3810 LET PX=INT(X*A1*AU(1)) 

3820 LET XPOS=PX 

3830 LET PY=0 

3840 LET PY=INT(FN Y(X)*A2*AU(2)) 

3850 LET YPOS=PY 

3860 PSET(PX, PY) 

3870 NEXT X 

3880 REM 

3890 REM *x*x DIBUJO DE -—F(X) xxx 

3900 'REM 

3910 LOCATE 8,1 

3920 PRINT "Funcion:-f(x)" 

3930 PRINT SPACE$(28) 

3940 PRESET(X5, 0) 

3950 LET XPOS=X5 

3960 LET YPOS=0 

3970 FOR X=X5 TO 200/41 STEP S 
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3980 


IF K1$(5)="5" THEN LOCATE 6,1:PRINT “X:";XPOS;" 


“Y: " YPOS;" m 
IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 40'70 


IF K1$(6)="N" THEN IF XPOS>205 OR YPOS>205 OR XPOS<-205 OR YPOS<-205 THK 
N GOTO 4110 


3990 
4000 


4010 
4020 
4030 
4040 
4050 
4080 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 


my 


4190 
4200 


4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
44 4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 


LET PX=INT(X*A1*AU(1)) 
LET XPOS=PX 
LET PY=0 
LET PY=INT(-(FN Y(X)*A2*AU(2))) 
LET YPOS=PY 
PSET(PX, PY) 
NEXT X 
REM 
REM *x*x* DIBUJO DE -F(-X) *x*xk 
REM 
LOCATE 8,1 
PRINT "Funcion:-f(-x)" 
PRINT SPACE$(28) 
PRESET(-200/A1,0) 
LET XPOS=-200/A1 
LET YPOS=0 
FOR X=-200/A41 TO X5 STEP S 


IF K1$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" 


¡YPOS;" K 


":LOCATE 7,1:PRINT 


“:LOCATE 7,1:PRINT 


IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 4270 


IF K1$(6)="N" THEN IF XPOS>205 OR YPOS>205 OR XPOS<-205 OR YPOS<-208 THE 
N GOTO 4280 


LET PX=INT(X*A1*AU(1)) 
LET XPOS=PX 
LET PY=0 
LET PY=INT(-(FN Y(X)*A2*AU(2))) 
LET YPOS=PY 
PSET(PX, PY) 
NEXT X 
LOCATE 12,1 
IE 
LOCATE 13,1 
PRINT "*PULSA UNA TECLAX*" 
LOCATE 14,1 
PRINTS laaolololalotoR " 
LET A$=INPUT$(1) 
GOTO 1460 
REM 
REM ARROJA OOOO OOOO NOK 
REM x**x* DIBUJAR CON TRAZO xxx 
REM MSI lOIOIOIOIOOIOIOO OK 
REM 
REM **x* DIBUJO DE F(X) *x*x* 
REM 
ON ERROR GOTO 5340 
LOCATE 8,1 
PRINT “Funcion: f(x)" 
PRINT SPACE$(28) 
PRESET(X5, 0) 
LET XPOS=X5 
LET YPOS=0 
FOR X=X5 TO 200/41 STEP S 


IF K1$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" 


“y: ";YPOS;" 


IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Yx*A2<-32750 THEN GOTO 4600 


IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 
N GOTO 4640 


4520 
4530 


4540 
4550 
4560 
4570 


LET PX=INT(X*A1*AU(1)) 

LET XPOS=PX 

LET PY=0 

LET PY=INT(FN Y(X)*A2*AU(2)) 
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“:LOCATE 7,1:PRINT 


| 


4580 LET YPOS=PY 

4590 LINE -(PX,PY), 1 

4600 NEXT X 

4610 REM 

4620 REM *x** DIBUJO DE F(-X) xxx 

4630 REM 

4640 LOCATE 8,1 

4650 PRINT "funcion: f(-x)" 

4660 PRINT SPACE$(28) 

4670 PRESET(-200, 0) 

4680 LET XPOS=-200 

4690 LET YPOS=0 

4700 FOR X=-200/A1 TO X5 STEP S 

4710 IF K1$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;” “:LOCATE 7,1:PRINT 
Ya YPOS3" Ñ 

4720 IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR YxA2<-32750 THEN GOTO 4800 

4730 IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 

N GOTO 4810 

4740 LET PX=INT(X*A1*AU(1)) 

4750 LET XPOS=PX 

4760 LET PY=0 

4770 LET PY=INT(FN Y(X)*A2*AU(2)) 

4780 LET YPOS=PY 


4790 LINE -(PX,PY),1 


4800 NEXT X 

4810 LOCATE 8,1 

4820 REM 

4830 REM **x* DIBUJO DE -F(X) x*x*x 
4840 REM 


4850 PRINT "funcion:-f(x)" 

4860 PRINT SPACE$(28) 

4870 PRESET(X5, 0) 

4880 LET XPOS=X5 

4890 LET YPOS=0 

4900 FOR X=X5 TO 200/41 STEP Ss 

4910 IF K1$(5)="S" THEN LOCATE 6,1:PRINT “X:";XPOS;" “:LOCATE 7,1:PRINT 
"Y:.";YPOS; * = 

4920 IF X*A1>32750 OR Y*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 5000 


4930 IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 
N GOTO 5040 


4940 LET PX=INT(X*A1*AU(1)) 

4950 LET XPOS=PX 

4960 LET PY=0 

4970 LET PY=INT(-(FN Y(X)x*A2*AU(2))) 

4980 LET YPOS=PY 

4990 LINE -(PX,PY), 1 

5000 NEXT X 

5010 REM 

5020 REM xx*x* DIBUJO DE -F(-X) xxx 

5030 REM 

5040 LOCATE 8,1 

5050 PRINT "funcion: -f(-x)" 

5060 PRINT SPACE$(28) 

5070 PRESET(-200, 0) 

$080 LET XPOS=-200 

5090 LET YPOS=0 

5100 FOR X=-200/A1 TO X5 STEP S 

5110 IF K1$(5)="S" THEN LOCATE 6,1:PRINT "X:";XPOS;" “:LOCATE 7,1:PRINT 
“Y: ";YPOS;" mo 

5120 IF X*A1>32750 OR Yx*A2>32750 OR X*A1<-32750 OR Y*A2<-32750 THEN GOTO 5200 


5130 IF K1$(6)="N" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THE 
N GOTO 5210 


5140 LET PX=INT(X*A1*AU(1)) 

5150 LET XPOS=PX 

5180 LET PY=0 

5170 LET PY=INT(-(FNY(X)*A2x*AU(2))) 
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5180 LET YPOS=PY 

$190 LINE -(PX,PY),1 

5200 NEXT X 

5210 LOCATE 12,1 

5220 PRINT “MadaMRaOaddOololalooioaK "" 
5230 LOCATE 13,1 

5240 PRINT "*PULSA UÑA TECLAX" 
5250 LOCATE 14,1 

5260 PRINT "aaa lolioialok " 
5270 LET A$=INPUT$(1) 

5280 GOTO 1480 

5290 REM 

5300 REM AMAMASSOOIO Oak ddook 
5310 REM *x** TRATAMIENTO DE ERRORES *x** 
5320 REM Adal olaaa ajaja lalalala k 
5330 REM 

5340 LOCATE 9,1 

5350 PRINT "**k ERROR. SOBREPASA RANGO *xk'" 
5380 RESUME NEXT 

5370 END 

5380 REM 

5390 REM Add SOS lOjOlolOIOlOlOK 
5400 REM *** DUBUJA CUADRICULA xx 
5410 REM Joao ok 
5420 REM 

5430 LINE(200, 38)-(-200, 38), 1 

5440 LINE(200, 76)-(-200, 76), 1 

5450 LINE(200, 114)-(-200,114),1 
B460 LINE(200, 152)-(-200,152), 1 
5470 LINE(200, 190)-(-200,190), 1 
5480 LINE(200, -38)-(-200,-38), 1 
5490 LINE(200,-76)-(-200,-76), 1 
5500 LINE(200,-114)-(-200, -114), 1 
5510 LINE(200, -152)-(-200, -152), 1 
5520 LINE(200,-190)-(-200,-190), 1 
5530 LINE(38,200)-(38,-200), 1 

5540 LINE(76,200)-(76,-200), 1 

5550 LINE(114,200)-(114,-200), 1 
5560 LINE(152,200)-(152,-200),1 
5570 LINE(190,200)-(190,-200), 1 
5580 LINE(-38,200)-(-38,-200), 1 
5590 LINE(-78,200)-(-78,-200), 1 
5800 LINE(-114,200)-(-114,-200), 1 


5610 LINE(-152,200)-(-152,-200), 1 


. 


5620 LINE(-190,200)-(-190,-200), 1 
5630 RETURN 
8 5640 REM 

B850 REM AXIS IOIOOOJOIOOK 

5680 REM *** LINEAS DATA x*xkx 

5670 REM Ada alololololololalok 

5680 REM 

5690 DATA "P","T","1,..Punto o Trazo. ( 

5700 DATA "S","N","2...Dibuja eje x. (" 
( 
( 


5710 DATA "S","N","3...Dibuja eje y. 
5720 DATA "S","N","4...STEP.— Auto. 
5730 DATA "S”,"N","B...Escribe valores de x e y. (" 
5740 DATA "S","N","6...” 


5750 DATA "S","N",*7,..Dibuja cuadricula. qe 

5760 REM 

BT7O REM AROS jO alioli lalalala lalo llojololoK ' 
5780 REM **xx FIN DE LA DEFINICION DE LA FUNCION *Xx*x* 

5790 REM ok lo dodo ld  a alo loddd R dRRRddakadak | 
5800 REM 

5810 VIEW 

5820 CLS | 


5830 PRINT "Si has definido el formato, tendras que volver a hacerlo." 
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5840 PRINT 


5850 PRINT "PULSA UNA TECLA" 


5860 LET A$=INPUT$(1) 
5870 RUN 


Algunas de las características más im- 
portantes de este programa son las siguientes: 


— Posibilidad de anular el eje X. 
Posibilidad de anular el eje Y. 
Posibilidad de cuadricular la panta- 


lla. 

— STEP automático o manual. 
Posibilidad de dibujar con puntos, 
Posibilidad de dibujar con líneas. 
Dibujo de asíntotas cuando sean ne- 


cesarias. 

— Visualización de coordenadas du- 
rante el dibujo. 

— Posibilidad de elección de escala en 


X y en Y. 

— Posibilidad de ampliar la imagen 
en X. 

— Posibilidad de ampliar la imagen 
en Y. 


— Posibilidad de cambiar la función sin 
salir del programa. 


Para elegir, o anular, algunas de estas 
opciones tenemos que pulsar la opción 3 del 
programa principal. Con ello nos aparecerán 
en pantalla una serie de preguntas que tene- 
mos que ir contestando. Con esta opción defi- 
nimos el formato en que queremos ver la re- 
presentación de la función. 


Fig. 1. 
Si queremos cambiar la función a repre- 
sentar, sólo tenemos que pulsar la opción 2 del 
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menú. Nos aparecerá el número de línea que 
tiene almacenado la función. Entonces pode- 
mos modificarla con tranquilidad. Una vez he- 
cho, basta pulsar Fl para volver al programa. 
El único inconveniente es que si previamente 
hemos definido el formato de la gráfica, tras 
definir la nueva función, nuestra definición, se 
borrará. 


Fig. 2. y = sen(x)/x. 


Una vez que hayamos pulsado la opción 
1 para poder ver la representación de la fun- 
ción, el ordenador nos hará una serie de pre- 
guntas antes de ponerse a dibujar. Estas son: 


— Escala en X. Inicialmente es 200, por 
lo que el número que introduzcamos dividirá 
a 200 y el resultado será la graduación del 
eje de las X. Así, si respondemos con un 10, la 
graduación será hasta 20, ya que 10 x 20 = 200. 


— Escala en Y. Inicialmente también 
vale 200. El valor que introduzcamos dividirá 
este número y pondrá el resultado como máxi- 
mo valor en el eje de las Y. 


— Ampliación en X. Podemos hacer que 
la gráfica se amplíe en X para así poder ver 
mejor una parte de la misma. Se puede pulsar 
cualquier número entre 0 y 9. 


— Ampliación en Y. Al igual que en X, 
podemos introducir un factor de ampliación 
entre 0 y 9. 


TRUCOS Y RUTINAS BASICAS 


ga. Normalmente, si dejamos el STEP automá- 
tico, el valor que el propio ordenador calcula- 
rá será más que suficiente para nuestras nece- 
sidades. 


Fig. 3. y =x?, 


En el caso de que hubiésemos definido 
el STEP como manual, entonces el ordenador 
nos preguntará qué valor queremos que ten- Fig. 4. y =sen(x)'x. 
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EL TALLER DEL HARDWARE 


Alimentación ininterrumpida 


todo asiduo usuario de orde- 
nador personal le habrá 
ocurrido alguna vez que 
después de introducir un 
programa con todo el cuida- 
do del mundo o preparado 
un trabajo para su salida por 
impresora se ha ido todo al 
cesto por una inoportuna interrupción de la 
alimentación. La red eléctrica tiene actual- 
mente unas buenas características de estabi- 
lidad y continuidad, pero como nadie es per- 
fecto puede ocurrir que se corte durante bre- 
ves instantes la corriente debido a múltiples 
causas y que aunque la mayoría de los equi- 
pos alimentados con ella no se enteren, como 
son las bombillas o los electrodomésticos, sin 
embargo, ocasionen una pérdida total de la 
memoria de los ordenadores. 

Las grandes instalaciones de ordenado- 
res disponen de equipos de alimentación inin- 
terrumpida para las máquinas que se conside- 
ran vitales, permitiendo con ello que puedan 
restaurarse las condiciones exactas del mo- 
mento del apagón en un tiempo relativamente 
corto. El sistema de alimentación debe permi- 
tir salvar en disco o cinta todos los procesos 
que se encuentren en curso en el momento del 
fallo, de forma que al rearrancar automática- 
mente se recuperen las condiciones idénticas 
a las del instante en que se detectó el fallo. 
Esto suele requerir la carga en memoria de los 
procesos en el estado en que se encontraban, 
siendo de particular interés todos aquellos re- 
lacionados con operaciones en tiempo real o 
terminales de teleproceso, pues será necesa- 
rio notificar a los usuarios remotos lo que 
ocurre para que tomen las medidas oportunas, 
aunque sea transitoriamente. 
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En general, el problema hay que resol- 
verlo mediante dispositivos que suministren la 
energía que no puede recibirse de la red 
eléctrica. Cuando dicha energía es de peque- 
ño volumen, los acumuladores o baterías pue- 
den satisfacer la necesidad, mientras que si el 
consumo a suplir es muy grande será necesa- 
rio disponer de grupos electrógenos que ge- 
neren la corriente mediante máquinas rotati- 
vas. Cada vez es más fácil disponer de equi- 
pos que mediante circuitos electrónicos de po- 
tencia permitan generar la corriente eléctrica 
de forma similar a la de la red de distribución 
sin necesidad de máquinas rotativas, siendo 
todos los componentes de estado sólido por lo 
que se les suele denominar como alimentado- 
res o inversores estáticos, 

En el presente número vamos a descri- 
bir equipos de alimentación ininterrumpida 
para ordenadores personales de pequeño 
consumo y para los de tipo intermedio. 


Alimentación para máquinas tipo 
Spectrum 


Los ordenadores que se alimentan en 
corriente continua y baja tensión son especial- 
mente fáciles de alimentar en ausencia de 
corriente. Por lo general lo que pretendere- 
mos es facilitar que el contenido de la memo- 
ria pueda ser salvado en cinta o en diskette, 
pues si no hay alimentación general tampoco 
funcionará la pantalla o el televisor. Nos con- 
formaremos con que el sistema trabaje unos 
minutos para permitir salvar el programa. 
También podemos suponer que el cassette en 
el que se salvan los datos o programas está ali- 
mentado por pilas. 

Con una solución así de simple y eco- 
nómica también resolvemos un problema mu- 
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cho más molesto y habitual: son los microcor- 
tes. En determinados edificios o instalaciones 
que presentan deficiencias puede ocurrir que 
con frecuencia se produzcan bajadas de ten- 
sión momentáneas debido a la conexión de 
equipos de mucha potencia y que durante al- 
gunos ciclos reducen la tensión de alimenta- 
ción a la mitad de la nominal. Si el número de 
ciclos durante los cuales se produce el fallo 
supera el que los condensadores de la entra- 
da de la alimentación pueden mantener la 


Fig. 1. Esquema de bloques. 
El circuito de alimentación se compone 
de: : 
— Filtro de red, para reducir los impul- 
sos transitorios generados en equipos próxi- 
mos no desparasitados. 

— Transformador de entrada, para re- 
ducir la tensión a la necesaria para el equipo. 

— Rectificador. 

— Filtro alisador de la señal rectificada. 

— Diodos de bloqueo para la operación 
con baterías. 

— Baterías. 


FUSIBLE 


Fig. 2. 


Circuito de alimentación ininterrumpida para baja tensión continua. 
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corriente consumida dentro de las especifica- 


ciones, se producirá una bajada brusca y una 


señal anómala de RESET del sistema que pue- 
den dejar inutilizado un trabajo o nuestro jue- 
go favorito. A veces la pérdida de tensión no 
causa el borrado completo, pero la memoria, 
que al ser generalmente de tipo dinámico ne- 
cesita refresco periódico, ha quedado borra- 
da parcialmente, con lo que es necesario em- 
pezar de nuevo. 


FILTRO 
ALISADOR 


— Circuito de carga de las baterías. 

El equipo de alimentación ininterrumpi- 
da sustituirá al normalmente utilizado para ali- 
mentar el equipo y que suele venir con la má- 
quina. En realidad, podría seguir utilizándose 
el alimentador normal, si se realiza exterior- 
mente el conmutador para inserción de las ba- 
terías y la alimentación de éstas. Los ordena- 
dores personales que se alimentan en corrien- 
te continua llevan internamente un regulador 
para suministrar las tensiones internas de for- 
ma estable. 


D, 


El filtro de entrada es recomendable, 
pues con la combinación de condensadores y 
bobinas acopladas se eliminan los ruidos de 
alta frecuencia los microcortes, si son de muy 
corta duración. Los condensadores C a utilizar 
serán de unos pocos nanofaradios a 300 voltios. 
El varistor que se coloca a la salida anula los 
pulsos de muy elevada tensión que aparecen 
en la red al conmutarse equipos con elevada 
componente inductiva. El transformador se 
utilizará en modo reducción, para dar a la sa- 
lida una tensión próxima a la nominal del or- 
denador, para que rectificada y filtrada pre- 
sente un valor siempre por encima del míni- 
mo especificado. Puede ser de toma media 
como el indicado o de salida simple, con el 
que sería necesario utilizar un puente de dio- 
dos como rectificador. La potencia nominal del 
transformador se seleccionará por lo menos un 
25% por encima de la necesaria en el equipo, 

El condensador Cl se dimensiona se- 
gún la corriente a suministar y el rizado admi- 
sible. Por ejemplo, para un rizado del 10% y 
una corriente de 1 amperio es necesario un 
condensador de unos 10.000 microfaradios. 

Los diodos utilizados pueden ser del 
tipo 1N4001 o similares, para corrientes de 
hasta | amperio eficaz. 

El circuito de carga de la batería se ha 
simplificado al máximo, reduciéndose a una 
resistencia limitadora de la corriente de car- 
ga y un diodo, para evitar la corriente en sen- 
tido contrario. La batería se cargará a un va- 
lor inferior a la tensión de salida normal, por 
lo que solamente entrará como alimentador 
cuando falle la corriente de entrada. El in- 
terruptor puede incluirse para permitir la car- 
ga a voluntad, aunque de forma automática 
cuando la batería se encuentre cargada com- 
pletamente la corriente quedará reducida a 
un mínimo. 


CIRCUITOS 
DE CARGA 


Fig. 3. Esquema de bloques. 
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Los diodos de la salida impiden que en 
ningún momento alimenten de forma simultá- 
nea los dos circuitos, al ser siempre la tensión 
de la batería de valor inferior a la de la sumi- 
nistrada por la red cuando está en operación 
normal. En el momento del fallo de la alimen- 
tación el condensador de filtro se descargará, 
pasando el diodo inferior a conducir, suminis- 
trando toda la corriente la batería. Es necesa- 
rio que la tensión suministrada sea superior al 
mínimo requerido por el ordenador, para que 
no se produzcan fallos al conmutar. Al volver 
la tensión de red tras un fallo, automáticamen- 
te se desconectará la alimentación de la bate- 
ría, al superar la tensión en el condensador a 
la que entra desde ella. 

Las baterías recargables son el elemen- 
to más costoso del diseño, siendo de un coste 
superior a diez veces a la de una pila dese- 
chable equivalente, por lo que en algunos ca- 
sos podrían sustituirse por pilas de alta 
corriente, mucho más baratas, eliminando el 
circuito de carga. 


Alimentación para equipos 
en corriente alterna 


Muchos de los ordenadores personales 
tienen entrada directamente para la tensión 
normal de red de 220 voltios y 50 hertzios. Para 
alimentar a estos equipos de manera que no 
les afecten las caídas durante un determina- 
do tiempo en necesario suministrarles una 
corriente de iguales características a las es- 
peradas por los circuitos de entrada del equi- 
po. Existen numerosas formas de conmutar la 
señal de alimentación, pero la más cómoda y 
práctica para poca potencia es la indicada en 
la figura, mediante un circuito de mando sepa- 
rado. 


INVERSOR 
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La tensión de la red eléctrica es redu- 
cida el nivel de tensión interno adecuado y 
luego rectificada y filtrada. Esta tensión será 
de un valor similar al de las baterías utilizadas 
para el mantenimiento en los períodos de fa- 
llo de la alimentación. La tensión continua así 
generada es convertida en alterna mediante 
el circuito denominado inversor estático, por 
el hecho de «darle la vuelta» a la forma de 
onda. La tensión una vez convertida en alter- 
na se aplica a los equipos de la misma forma 
que la tensión de red. 

La conmutación entre la tensión rectifi- 
cada de la red y la de las baterías se hace de 
igual forma que en el esquema anterior, me- 
diante diodos de bloqueo. De los dos posibles 
circuitos que pueden alimentar solamente uno 
estará activo, es decir, suministrando corrien- 
te, pues el otro resultará bloqueado, al apare- 
cer tensión en sentido inverso en el diodo. 
Para poder utilizar componentes económicos 
se suele reducir la tensión hasta los 12 voltios, 
que es la tensión nominal de las baterías de 
automóvil, resultando un equipo económico y 
de grandes prestaciones, aunque algo volumi- 
noso. En equipos industriales que requieren 
más de una batería se conectan en serie para 
conseguir la tensión deseada. 

Las características principales a consi- 
derar de la batería son: tensión nominal, ten- 
sión mínima de trabajo, carga máxima (expre- 
sada generalmente en amperios-hora), 
corriente máxima y vida útil. Según el consu- 
mo de nuestro equipo seleccionaremos una 
batería que pueda suministrar la corriente ne- 
cesaria durante el tiempo máximo de fallo. 
Será necesario seleccionar un valor superior 
para tener un cierto margen de garantía. 


> 


Circuito inversor estático 


Existen numerosos circuitos que permi- 
ten generar una tensión alterna de caracterís- 
ticas similares a la de la red eléctrica, selec- 
cionándose en cada caso según los requeri- 
mientos de potencia. Para las potencias reque- 
ridas en los ordenadores personales, del or- 
den de 400 watios como máximo, para una con- 
figuración casera típica, se suelen utilizar tran- 
sistores de cormutación tanto de tipo bipolar, 
por su economía, como de tipo de efecto de 
campo (FET o MOS), por sus prestaciones. Los 
circuitos son muy similares en ambos casos. 
Para potencias superiores al kilowatio se em- 
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plean tiristores como elementos de conmuta- 
ción, por presentar características idóneas 
tanto en corte como en conducción. 

El equipo inversor se compone de dos 
bloques principales diferentes: 

— Circuito de mando. 

— Circuito de conmutación. 

Para muy pequeñas potencias puede 
utilizarse una configuración de autoexcitación 
en la que el propio inversor forma parte del 
circuito oscilador de mando. Su gran ventaja 
radica en que la señal de excitación se consi- 
gue a través del transformador que también 
genera la potencia de salida, sin requerir cir- 
cuito previamente alimentado para el control. 


Fig. 4. Circuito inversor con autoexcitación. 


El transformador se suele diseñar con 
núcleo magnético de ciclo de histéresis rec- 
tangular, para reducir en lo posible las pérdi- 
das. Los bobinados superior e inferior consti- 
tuyen la realimentación que mantiene las os- 
cilaciones, pues por la conexión indicada ha- 
cen pasar alternativamente a cada transistor 
de conducción a corte. Los valores de las re- 
sistencias de carga han de ser un valor que 
permita saturar al transistor cuando deba en- 
trar en conducción hasta el valor de corriente 
necesario. 

La frecuencia de oscilación del equipo 
resulta determinada por las características 
magnéticas del núcleo y el valor de la carga, 


por lo que sólo se usa cuando es necesario su- 
ministrar corriente alterna sin importar dema- 
siado la frecuencia. 

En aplicaciones generales es preferible 


Fig. $. Inversor con circuito de mando. 


El circuito de mando incluye los com- 
ponentes necesarios para la generación de la 
señal de referencia, la medida de las caracte- 
rísticas de la tensión de salida y los circuitos 
de protección contra cortocircuitos y otros fa- 
llos de la carga alimentada. Un circuito de 
mando típico puede ser el de la figura com-: 
puesto por un oscilador con el circuito integra- 
do LM5585 y un biestable conectado como di- 
visor de frecuencia. Mediante la resistencia 
variable R puede ajustarse la frecuencia de 
oscilación. A las entradas del oscilador se de- 
berían conectar las señales indicadoras de so- 
brecorriente, para que se detenga la oscila- 
ción y por tanto la tensión en la salida, además 
de la alimentación de los transistores excita- 
dores Tl y T2. 


31 


que la excitación se encuentre separada, para 
poder controlar independientemente los pará- 
metros fundamentales: frecuencia, tensión, 
corriente de protección. 


2N2222 


+12 


+5 


5,1 V 


Fig. 6. Alimentación del circuito de mando. 


La alimentación del circuito de mando 
puede hacerse desde la tensión regulada de 
salida, pero lo más normal es utilizar un pe- 
queño transformador conectado directamente 
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a la entrada para que una vez rectificado 
suministra la energía necesaria en los circui- 
tos de control y seguridad. En el esquema 
mostrado puede sacarse de la señal filtrada o 
de batería a través de un diodo Zener y un 
transistor que hace de regulador. y 

El circuito de potencia incluye los tran- 
sistores conmutadores, T4 y T6, que están for- 
mados por un acoplamiento Darlington, para 
conseguir una elevada ganancia, el transfor- 
mador de acoplamiento y el circuito filtro para 
que la onda de salida presente un contenido 
de armónicos dentro de los límites de los equi- 
pos a los que alimenta. El transformador utili- 
zado puede ser uno normal de alimentación en 
conexión amplificación. Debe tenerse sumo 
cuidado al manipular la parte de salida del 
transformador conectado de esta forma, pues 
las tensiones que aparecen pueden resultar 
peligrosas. 

Es conveniente colocar diodos en anti- 


e 


REFERENCIA TRIANGULAR 


paralelo con los transistores de salida para 
evitar que las tensiones inversas que se pro- 
ducen en las conmutaciones puedan dañarlos, 
por superación de los valores máximos admi- 
sibles. Además permiten la circulación libre 
de la corriente de retorno, mejorando las ca- 
racterísticas del inversor. 

La forma de onda de la señal generada 
mediante conmutación de una señal continua 
será de tipo cuadrado, generalmente con un 
tiempo útil variable para permitir el control de 
la tensión de salida. Esta forma de onda tiene 
un elevado contenido en armónicos, que en 
muchas aplicaciones pueden causar trastor- 
nos, por lo que deberán eliminarse mediante 
filtros realizados con bobinas y condensadores. 
Al trabajar a frecuencias bajas el tamaño de 
los componentes resulta muy grande, por lo 
que es frecuente utilizar técnicas de conmuta- 
ción a alta frecuencia con control del ciclo útil 
para simplificar el filtro de salida. 


AI 


ETS 


Fig. 7. Generación de forma de onda por conmutación, 


» 


El control del tiempo útil de cada ciclo 
para ajustarse a una forma de onda determi- 
nada se realiza mediante un circuito como el 
de la figura en la que un tren de pulsos trian- 
gulares de frecuencia fija se compara con la 
señal cuya forma se quiere sintetizar. En los 
períodos en los que la señal de referencia su- 
pera a la señal triangular se conmuta la ten- 
sión a la salida, anulándose en los períodos en 
los que la tensión de referencia es inferior. La 
señal resultante presenta la forma de la figu- 
ra, constituida por pulsos de diferentes an- 
chos. Al filtrar esta señal con un filtro de fre- 
cuencia de corte inferior a la frecuencia de re- 
petición de pulsos del tren de conmutación, se 
eliminarán la mayor parte de los armónicos 
procedentes de la señal de pulsos de ancho 
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variable, resultando una señal de frecuencia 
como la de referencia con cierto rizado pro- 
cedente del filtrado imperfecto. 

El interés de utilizar señales de poten- 
cia de forma rectangular radica en que así la 
energía perdida en los elementos de control es 
mínima, pues o se encuentran en conducción 
total, con caída de tensión muy baja, o se en- 
cuentra fuera de conducción, con corriente 
despreciable. La potencia consumida en los 
elementos de conmutación es en realidad de 
pérdidas, por lo que interesa minimizarla todo 
lo posible. Los transistores de tipo MOS utili- 
zados actualmente en los inversores estáticos 
cumple de forma casi ideal los requerimien- 
tos indicados, pues presentan una resistencia 
en conducción de décimas de ohmio, para 


corrientes de decenas de amperios y resis- 
tencia muy elevada en el estado de no con- 
ducción. Por otra parte, los tiempos de conmu- 
tación de un estado a otro son muy reducidos, 
del orden de decenas de nanosegundo, por lo 
que las pérdidas son realmente muy bajas. 

Otros componentes de importancia en 
circuitos conmutados de potencia son los dío- 
dos, pues si son de tipo normal de silicio pre- 
sentan una caída de tensión, para corrientes 
de algún amperio que puede sobrepasar los 
1,5 voltios, por lo que la potencia disipada pue- 
de ser alta. En las fuentes conmutadas de alta 
frecuencia y alto rendimiento se emplean dio- 
dos Schotky, que por su especial estructura de 
unión semiconductor-metal presentan una caí- 
da de 0,3 a 0,5 voltios, para intensidades simi- 
lares a las indicadas. 
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Conclusión 


Con objeto de proteger nuestro ordena- 
dor personal contra el fallo de la alimentación, 
se han mostrado un par de circuitos para su- 
ministrar la energía necesaria en forma de 
corriente continua o alterna, según el tipo ne- 
cesario. Debe recordarse la importancia de la 
elección de las baterías para que la duración 
del período esté dentro del rango de fallos po- 
sibles. 

Tómense todas las precauciones posi- 
bles al generar tensiones alternas de valores 
tan altos como los de red,-para evitar daños 
personales o deterioro de los equipos. 


APRENDER CON EL ORDENADOR 


NATURALEZA 
Y TECNOLOGIA 


TIRO PARABOLICO 


L igual que otros movimien- 
tos como el movimiento uni- 
formemente acelerado, el 
movimiento circular, etc., el 
tiro parabólico es estudiado 
por la Cinemática. Estudia 
los disparos de los proyecti- 
les sin salirse del campo 
gravitatorio terrestre, con una determinada in- 
clinación de ángulo a, velocidad inicial v,, y 
aceleración constante. La trayectoria descrita 
por el proyectil es una parábola, siempre que 
tengamos en cuenta que no existe oposición 
del aire. j 


Componentes de la velocidad 


Podemos conocer las componentes v, y 
v, de la velocidad del punto en función del 
tiempo. Primero descomponemos la velocidad 
v, en los ejes de coordenadas: 


V, ="V, COS QU 
V,, = V, Sen a. 


La componente v, no se modifica por no 
estar sometida a ninguna aceleración. La com- 
ponente v,, se ve afectada por el campo gra- 
vitatorio que produce una aceleración a lo lar- 
go del eje y, produciéndose sobre esta direc- 
ción un movimiento uniformemente acelerado. 

La componente v, será: 


Vy = Vy +at. (1) 
Vy, = v, sen a (2) 
a = -g (3) 
De (1), (2) y (8) se deduce que: 


V, = V, Sen Q - Of. 


De acuerdo con lo anterior, las dos com- 
ponentes de la velocidad son: 


V, = V¿ COS OL. 
V, = v, Sen Q - gt. 


Con estas dos ecuaciones podemos de- 
terminar la velocidad v en cualquier momen- 
to o instante: 


v = Vv, 2 + y, 2. 


Coordenadas del punto móvil 


La coordenada x del punto móvil es el 
espacio recorrido sobre el eje correspondien- 
te con la velocidad v, : 


X= V,t=v,tcC0s 0. 


La coordenada y es el espacio recorri- 
do con movimiento uniformemente retardado 
sobre dicho eje. Por tanto: 


y= €, + vyt+ > at, 
e, =0. 
Vy, = V, SEN Ql. 
a =-q. 


Sustituyendo en las anteriores ecuacio- 
nes: 


y = v,t sen a => aft?. 


Tiempo que tarda en pasar 
por la horizontal 


Cuando el punto móvil pasa por la hori- 
zontal, su ordenada es nula. Por tanto: 
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; 1 E ¿Ho sen a 
y = v,l sen QU a MAN 7 
y =0. 
De esto se deduce: Altura máxima 
k 2v,sena 
vot sen a - 9 Y A —_ La altura máxima es la máxima altura al- 
9 canzada por el disparo medida a partir del eje 
El resultado buscado es: horizontal. 
_ 2vy Sena 1 
Ñ g y = vo sen a - —— 9* 
A ¡- Yo Sen QU 
Alcance máximo ASE 


El alcance máximo es la distancia máxi- 
ma que alcanza el proyectil medida sobre la 
horizontal del punto desde el cual se ha hecho 


La altura máxima es: 


el disparo. _ vi sen2 a 
Sustituimos en la expresión de x el va- Ym 29 
lor del tiempo que tarda el punto móvil en pa- 
sar por la horizontal, obteniendo así el valor A continuación se ofrece un ejemplo de 
de x en ese instante que es el alcance máximo: ejecución del programa para unos valores 
= v, t cos 0 concretos: 
_ 2vy sena 
g 
El alcance máximo sería: 
2V, Sen Q. v? sen 20 
Xm = Vo ———— Cos 4 = ——_— 
g 
Tiempo que tarda en pasar 
por el punto máximo 
% En el punto máximo la componente ver- 


tical de la velocidad es nula. Debido a esto: 


V, = v, Sen Q - gt. 
Ya 0. Fig. 1 


10 REM HR MM MA RR HR IED E 6 III 


20 REM * PROGRAMA : TIRO PARABOLICO * 
30 REM * VERSION : 1.0 + 
40 REM * EQUIPOS : IBM PC Y COMPATIBLES * 


50 REM PMI MA HI JE MEM DI RR DEM ED NI EJEM 
400 REM * PROGRAMA PARA EL CALCULO DE PARAMETROS DEL TIRO PARABOLICO + 
110 PRINT"TIRO PARABOLICO" 

420 PRINT"INTRODUZCA INCLINACION INICIAL DEL PROYECTIL EN RADIANES Y" 
130 PRINT"LA VELOCIDAD EN METROS/SEGUNDO" 

140 INPUT"INCLINACION ";IN 

150 INPUT"VELOCIDAD INICIAL ";VO 

160 LET G=9.8 

165 GOSUB 2000 

170 GOSUB 1090 

180 GOSUB 1120 
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"5FN RCTH);" SEGUNDOS" 


“GFN R(TP);" SEGUNDOS" 


m/s" A 


190 GOSUB 1150 

200 GOSUB 1180 

210 PRINT:PRINT:PRINT 

220 PRINT"TIEMPO HASTA PASAR POR LA HORIZONTAL : 
230 PRINT"ALCANCE MAXIMO: ";FN R(XM);" METROS" 
240 PRINT"INSTANTE DE PASO POR PUNTO MAXIMO: 

250 PRINT"ALTURA MAXIMA: ";FN R(YM);" METROS" 
260 PRINT"¿DESEA ALGUN VALOR TEMPORAL DE LA VELOCIDAD (S/N)>"; 
270 INPUT"";AsS 

280 IF A$="S" OR A$="s" THEN GOSUB 500 

290 PRINT"¿DESEA REALIZAR OTRO TIRO (S/N)"; 

300 INPUT""; As 

310 IF A$="S" OR A$="s'" THEN GOTO 110 

320 GOTO 999 

500 PRINT"INTRODUZCA EL INSTANTE DE MEDIDA"; 

510 INPUT"";T 

520 GOSUB 1000 

530 GOSUB 1050 

540 PRINT"LA VELOCIDAD ES ";FN R(V);" M/S" 

550 PRINT"LA COMPONENTE Vx DE LA VELOCIDAD ES "¿FN R(VX)5" 
560 PRINT"LA COMPONENTE Vy DE:LA VELOCIDAD ES ";FN R(YY)5" M/S" 
570 PRINT"LAS COORDENADAS DEL PUNTO MOVIL SON :" 
580 PRINT"X(";T5'")=";FN R(X); "METROS" 

590 PRINT"Y("5T5")="5FN R(Y); "METROS" 

600 PRINT"¿DESEA ALGUN VALOR TEMPORAL DE LA VELOCIDAD (S/N)"; 
610 INPUT"";As$ 

620 IF A$="S" OR A$="s" THEN GOTO 500 

630 RETURN 

999 END 

1000 REM COMPONENTES DE LA VELOCIDAD 

1010 LET VX=V0*COS(IN) 

1020 LET VY=VO*SIN(IN)-G*T 

1030 LET V=SQR (VX*VX+VY*VY) 

1040 RETURN qe. 

1050 REM COORDENADAS DEL PUNTO MOVIL 

1060 LET X=VXx*T 

1070 LET Y=VO*T*SINCIN)-(GTAT/2) 

1080 RETURN 

1090 REM TIEMPO QUE TARDA EN PASAR POR LA HORIZONTAL 
1100 LET TH=2*VO*SIN(IN)/G 

1110 RETURN 

1120 REM ALCANCE MAXIMO 

1130 LET XM=V0*VO*+SIN(2%IM)/G 

1140 RETURN 

1150 REM TIEMPO DE PASO POR EL PUNTO MAXIMO 

1160 LET TP=V0*+SIN(IN)/G 

1170 RETURN ES 

1180 REM ALTURA MAXIMA 

1190 LET YM=VO*VO*SIN(IN)+*SIN(IN)/(2*G) 

1200 RETURN 

2000 DEF FN R(X)=1NT(X*1000+.5)/1000 

2010 RETURN 


Modificaciones para otros equipos 


SPECTRUM 
LINEA 999 STOP 


MATEMATICAS 


Posición relativa de tres planos 
en el espacio 


Sean las ecuaciones de los planos: 
ax+by+cz+d=0 
ex+fy +gz+h=0 
jx +ky+lz+m=0 


A. Para que tengan puntos comunes 
ha de ser compatible el sistema, es decir: 


IM Vo ol o | 
r e tt gl =1 le, Í gq: h|=1 
O IN! A MA 
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a) Sir =3, los tres planos se cortan en 
un punto único cuyas coordenadas se obtienen 
aplicando la regla de Cramer. 

b) Sir=2, una ecuación es combina- 
ción lineal de las otras dos y puede suprimir- 
se. Los tres planos se cortan según una recta 
(son coaxiales). 

c) Sir = ml, las tres ecuaciones son la 
misma; los planos son coincidentes. 

B. Para que no tengan puntos comunes 
el sistema ha de ser incompatible, es decir: 


á bue SD ed 
r=rje f g|+rfe f g hl=x 
jar deal SE 


El rango de la primera matriz es menor 
o igual que el de la segunda, y los rangos de 
ambas matrices difieren como máximo en una 
unidad. Como los rangos son distintos las úni- 
cas posibilidades son: 


APRENDER CON EL ORDENADOR 


a) r=2,r' = 3. Si en las dos primeras 
filas existe un menor principal se cortan según 
los dos primeros planos. Análogo razonamien- 
to para los otros pares de filas. 


b) Y1=1,r' = 2. Los tres planos son pa- 
ralelos. 


Fig. 2 


10 REM 4H 6 AA MIE AR MARTI AIRA IA 
20 REM * PROGRAMA : POSICION RELATIVA DE TRES PLANOS EN EL ESPACIO * 
30 REM * VERSION : 1.0 * 
40 REM * EQUIPOS : IBM PC Y COMPATIBLES * 
5D REM MRE HARI AA TERESA MP RAE RR RARA 
100 CLS 
410 PRINT"EL OBJETO DE ESTE PROGRAMA ES EL ESTUDIO DE LA POSICION RELATIVA" 
420 PRINT"DE TRES PLANOS EN EL ESPACIO. PARA ELLO ES NECESARIO INTRODUCIR" 
430 PRINT"LAS COORDENADAS CARTESIANAS DE LOS TRES PLANOS." 

140 PRINT"UNA DE LAS DOS RECTAS. LAS POSICIONES PUEDEN SER LAS SIGUIENTES:" 

150 PRINT"1) QUE SE CORTEN EN UN PUNTO" 

160 PRINT"2) QUE SE CORTEN SEGUN UNA RECTA" 

470 PRINT"3) QUE SEAN PARALELOS" 

180 PRINT"4) QUE SEAN COINCIDENTES" 

190 PRINT"S) QUE SE CORTEN DOS A DOS" 

200 DIM P(4,3),N(3,3),C(3,3) 

240 DEF FN T(X,V)=C(X, YIHCOX+A 1, VA 1)ACUXA2, +2) +C(X+2, +1) 90 (X, +2) (X+1, Y) 
+O (IEA, AZ) MC UXH2, Y) AC UX, A 1) (CORRE, Y IAC (XA, VA DHRCAX, Y +42) 
+O(X, VIO COXAA) VHZIACUXRR, VARO (MHZ, VHB ACC, YH AC (XRA Y 0) 

220 DEF FN D(X,Y)=C(X,Y)RC(X+1,W+1)-0(X, + 1)3C(X+1, Y) 

300 PRINT"INTRODUZCA LAS COORDENADAS DE LOS TRES PLANOS" 

310 FOR J=1 TO 3 

320 PRINT “PLANO "sy; " 

330 INPUT"X="3P(1,J) 

340 INPUT"Y=";P (2,3) 

350 INPUT"Z="3P(3,J) 

360 INPUT"D="sP(4,J) 

370 NEXT J 

380 GOTO. 1000 

400 REM * COMPROBACION DE RANGO 3 + 

410 FOR I=1 TO 3 

420 FOR J=1 TO 3 

430 LET C(1,J)=N(1,J) 

440 NEXT J 

¿ 450 NEXT 1 

460 1F FN T(1,1)<>0 THEN LET R=3:GOTO 830 

470 REM * COMPROBACION DE RANGO 2 + 

480 LET R=0 

490 FOR I=1 TO 2 

500 FOR J=1 TO 2 

510 1F FN D(1,J)<>0 THEN LET R=2 

520 NEXT y 

530 NEXT 1 

540 IF R=2 THEN GOTO 830 

550 FOR J=1 TO 3 

560 LET A=C(2,J) 

570 LET C(2,J)=0(3,J) 

580 LET C(3,J)=A 

590 NEXT J 

£00 FOR J=1 TO 2 

610 1F FN D(1,J)<>0 THEN LET R=2 

620 NEXT J 

630 1F R=2 THEN GOTO 830 

£40 FOR 1=1 TO 2 

650 LET A=C(1,2) 

660 LET C(1,2)=C(1,3) 

670 LET C(1,3)=A 

£80 NEXT 1 

690 IF FN D(1,1)<>D THEN LET R=2:GOTO. 830 

700 FOR 1=1 TO 3 

710 FOR J=1 TO 3 

720 LET C(I,J)=P(1,J) 
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730 NEXT J 

740 NEXT 1 

750 FOR 1=1 TO 3 

/60 LET A=C(1,2) 

770 LET C(1,2)=C(1,2) 

780 LET C(1,3)=A 

790 NEXT 1 

80D FOR I=1 TO 2 

810 IF FN D(1,1)<>0 THEN LET R=2 
820 NEXT 1 

830 1F R=0 THEN LET R=1 

840 RETURN 

1000 REM *RUTINA GENERAL + 

1010 REM *RANGO DE LA MATRIZ A* 
1020 FOR 1=1 TO 3 

1030 FOR J=1 TO 3 

1040 LET N(1I,J)=P(1,J) 

1050 NEXT J 

1060 NEXT I 

1070 GOSUB 400 

1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
9999 


LET RA=R 


FOR I=2 TO 4 

FOR J=1 TO 3 

LET N(I-1,J)=P(1,J) 
NEXT J 

NEXT 1 

GOSUB 400 

LET RB=R 

IF RB>RA THEN GOTO 1300 
FOR J=1 TO 3 

LET N(1,J)=P(1,J) 

NEXT J 

GOSUB 400 

IF RB<R THEN LET RB=R 
IF RB>RA THEN GOTO 1300 
FOR J=1 TO 3 

LET N(2,J)=P(2,J) 

NEXT J 

GOSUB 400 

LET RB=R 


PRINT"ERROR" 
END 


Modificaciones para otros equipos 
COMMODORE 


LINEA 100 PRINT CHR$ (143) 


SOCIEDAD 


Adverbios 


El adverbio es la parte de la oración 
que modifica al verbo, al adjetivo o a otro ad- 
verbio. Ejemplos: Corrió (verbo) rápidamente 
(adverbio). Ayer estaba muy (adverbio) tran- 
quila (adjetivo). Has hecho la tarea muy (ad- 
verbio) bien (adverbio). 


10 
20 
30 
40 
50 


REM 
REM 
REM 
REM 
REM 


* PROGRAMA : ADVERBIOS 
+ VERSION : 1.0 
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IF R=3 THEN PRINT"SE CORTAN EN UN PUNTO"*GOTO 9999 y 


REM * RANGO DE LA MATRIZ AMPLIADA + 


REM * DETERMINACION DE POSICIONES + 

IF (RA=RB) AND (RA=2) THEN PRINT"SE CORTAN SEGUN UNA RECTA":GOTO 9999 
IF (RA=RB) AND (RA=1) THEN PRINT"SON COINCIDENTES":GOTO 9999 

IF (RA=2) AND (RB=3) THEN PRINT"SE CORTAN DOS A DOS":GOTO 9999 

IF (RA=1) AND (RB=2) THEN PRINT"SON PARALELOS":GOTO 9999 


Según las circunstancias que expresen, 
los adverbios pueden ser: 

De modo: Indican cómo se realiza la ac- 
ción: Bien, despacio, lentamente, así, aprisa... 

De tiempo: Cuándo se realiza la acción: 
ahora, nunca, tarde, mañana... 

De lugar: Dónde se realiza la acción: 
aquí, allí, delante, arriba... 

De cantidad: Cuánto alcanza la acción: 
mucho, nada, demasiado... 

De afirmación: La acción se realiza: sí, 
también, ciertamente... 

De negación: La acción no se realiza: no, 
tampoco, nunca, jamás... 

De duda: No hay certeza de que la ac- 
ción se realice: quizá (o quizás), acaso, tal 
vez... 


FMRE FE TEA MD DEA A A Al HE IE RIE TE EEE DE ED DEJE IÓ JE IE E JD 6 DD 0 DD 0d 


* 
* 


* EQUIPOS : IBM PC Y COMPATIBLES * 
PHIL 0 


APRENDER CON EL ORDENADOR 


100 
110 
120 
130 
140 
150 
200 
210 
220 


CcLS 


PRINT"SE PREGUNTE" 
LET T=1 

LET S=1 

DIM A$(42,2) 


PRINT"EL SIGUIENTE TEST TIENE POR OBJETO COMPROBAR EL CONOCIMIENTO" 
PRINT"DE LOS ADVERBIOS. EL ADVERBIO ES LA PARTE VARIABLE DE LA " 

PRINT"ORACION QUE MODIFICA AL VERBO, AL ADJETIVO O A OTRO ADVERBIO" 
PRINT“SE TRATA DE RESPONDER A QUE TIPO DE ADVERBIO PERTENECE EL QUE" 


230 FOR 1=1 TO 7 

240 READ X 

250 LET T=S+X-1 

260 READ TS 

270 FOR J=S TO T 

280 LET A$(J,1)=TS% 

290 READ A$(J,2) 

300 NEXT J 

310 LET S=S+X 

320 NEXT 1 

330 LET R=0 

400 FOR 1=1 TO 10 

410 LET A=INT(RND(1)+42)+1 

420 PRINT"¿QUE TIPO DE ADVERBIO ES ";A$(A,2); 
430 INPUT R$ 

440 IF A$(A,1)=R$ THEN PRINT"BIEN":LET R=R+4 
450 IF A$(A,1)<>R$ THEN PRINT"MAL. LA RESPUESTA ERA ";A$(A, 1) 
460 NEXT 1 


470 PRINT"HAS OBTENIDO ";R;" ACIERTOS" 


1000 DATA 

RAPIDAMENTE, DIRECTAMENTE 
1010 
1020 
1030 
1040 
1050 


1060 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Modificaciones para otros equipos 
SPECTRUM 

LINEA 220 DIM A$ (42,2,10) 

PARA LOS MAS JOVENES 


Unidades de medida: longitud, masa, 
capacidad 


El hombre a medida que pasaba el 
tiempo observó que tenía necesidad de estan- 
darizar todo aquello que medía, pesaba y que 
tenía volumen, surgiendo así las unidades de 
medida (si, por ejemplo, tenía que medir el 
largo de una habitación mediante los pasos de 
dos personas que tuvieran distinta altura, 
aquella persona que fuera más alta mediría 
una longitud más pequeña que la persona que 
tuviera una altura menor, por lo que nunca se 

pondrían de acuerdo). Las principales unida- 
des que surgieron fueron las de longitud, 
masa y volumen. 


Unidades de longitud 


Las unidades de longitud se utilizan 
para medir distancias (¿cuántos metros hay de 
mi casa al parque?). 
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10,MODO,BIEN,MAL, DEPRISA, DESPACIO, ASI ,APRISA, DESPACIO, LENTAMENTE, 


8, TIEMPO, AHORA, NUNCA, TARDE, MAÑANA, AYER , DESPUES , ANTES, HOY 
8,LUGAR , AQUI, ALLA, ALLI,ACA, DELANTE, DETRAS, ARRIBA, DEBAJO 
5, CANTIDAD,MUCHO,POCO,NADA, TODO, DEMASIADO 
3,AFIRMACION, SI, TAMBIEN, CIERTAMENTE 

4, NEGACION,NO, TAMPOCO,NUNCA, JAMAS 
4,DUDA,QUIZA, QUIZAS, ACASO, TAL VEZ 


La unidad principal en las medidas de 
longitud es el metro (unidad patrón). Existen 
unidades de longitud mayores y menores del 
metro con sus respectivas equivalencias. 


Las unidades menores del metro son: 
Decímetro (dm). 

Centímetro (cm). 

Milímetro (mm). 

Las unidades mayores del metro son: 
Kilómetro (Km). 

Hectómetro (Hm). 

Decámetro (Dm). 


Como hemos dicho antes, existen equi- 
valencias entre las distintas unidades de lon- 
gitud: 


1m =10 dm. 
1dm = 01m 
1m = 100 cm 
lcm = 0,01 m 
1 m = 1000 mm. 
1 mm =0,001 m. 
lm=1m. 

1 Km = 1.000 m. 
1 Hm = 100 m. 
1 Dm = 10 m. 


Unidades de capacidad 


Las unidades de capacidad son utiliza- 
das para saber la cantidad de líquido que 


cabe en una determinada medida. Al igual Unidades de masa 
que sucedía en las medidas de longitud, exis- 
te la unidad principal, que en este caso es el 
litro (unidad patrón) con sus respectivas uni- 
dades mayores y menores. 
Las unidades menores del litro son: 
Decilitro (dl). 


La unidad principal en las unidades de 
masa es el gramo (unidad patrón). Existen uni- 
dades mayores y menores del gramo: 

Unidades menores del gramo: 

Decigramo (dg). 

Pe Centigramo (cg). 

Centilitro (cl). Miloramo eb) 

Mililitro (mi). q Unidades mayores del gramo son: 

Las unidades mayores del litro son: Kilogramo (Kg). 

Kilolitro (KD. Hectogramo (Hg). 

Hectolitro (HD, Decagramo (Dg). 

Decalitro (DD. Las equivalencias existentes entre estas 


Las equivalencias existentes son: unidades son: 

1 1=10 dl. lg = 10 do. 
1dl=0,11 ldg =0,1 q. 

1 1= 100 cl. 1 g = 100 co. 

1 cl =0,01 1. lcg=0,01 q. 

1 1 = 1.000 ml. 1 gy = 1.000 mg. 
1 ml = 0,001 1. 1 mg = 0,001 gq. 
l11=11 lg=109. 

1 K1 = 1.000 1. 1 Kg = 1.000 q. 
1 HI = 100 1. 1 Hg = 100 g. 
1D1=101 1 Dg = 109. 


AO REM tt 062 26 TD RA RAMA A PR 6 MA 


20 REM * PROGRAMA : UNIDADES DE MEDIDA * 
30 REM * VERSION : 1.0 * 
40 REM * EQUIPOS : IBM PC Y COMPATIBLES * 


E 
100 DIM P$(21),4$(21),E(21) 
110 FOR I=1 TO 21 


120 READ P$(1) 
130 READ A$(1) 
140 READ E(1) 
150 NEXT 1 
160 CLS 

200 CLS 


210 PRINT"ELIGE OPCION: " 

220 PRINT"4) TEST DE ABREVIATURAS DE LAS UNIDADES DE LONGITUD, CAPACIDAD Y MASA" 
230 PRINT"2) TEST DE EQUIVALENCIAS DE LAS UNIDADES DE LONGITUD, CAPACIDAD" 
240 PRINT" Y MASA" 

250 PRINT"ELIGE OPCION: "; 

26D INPUT """50$ 

270 IF 0O$="1'" THEN GOTO 300 

280 IF 0O$="2" THEN GOTO £00 

290 GOTO 200 

300 REM * TEST DE ABREVIATURAS DE UNIDADES DE MEDIDA + 

310 PRINT "36006 362636 90d 2 MEA IR MIAMI 
320 PRINT"¿CONOCES LAS ABREVIATURAS DE LAS UNIDADES DE LONGITUD, " 

330 PRINT"CAPACIDAD Y MASA?" 

340 PRINT'"SI CONSIDERAS QUE. ES ASI, ATREVETE CON ESTE SENCILLO TEST." 

350 PRINT'“TENDRAS QUE ESCRIBIR LA ABREVIATURA DE LA UNIDAD QUE SE TE" 

360 PRINT"PREGUNTE; RECUERDA QUE HAY ALGUNAS QUE SE ESCRIBEN CON" 

370 PRINT"MAYUSCULAS PERO OTRAS SE ESCRIBEN CON MINUSCULAS." 

380 PRINT"TENDRAS QUE RESPONDER A DIEZ PREGUNTAS. AL FINAL RECIBIRAS" 

390 PRINT'"LA CALIFICACION DE LA PRUEBA" 


400 LET R=0 

410 FOR I=1 TO 10 

420 LET X=INT(RND(1):21)+4 

430 PRINT"¿CUAL ES LA ABREVIATURA DE "¿P$(X);" 2; 

440 INPUT""5R$ 

450 IF R$=A$(X) THEN PRINT "BIEN":LET R=R+4 

460 IF R$<>A$(X) THEN PRINT "NO. LA RESPUESTA ES ";A$(X) 
470 NEXT 1 


480 PRINT"HAS TENIDO "¿R;" ACIERTOS" 

490 GOTO 780 

£00 PRINT 0203006 3626 00H RMN ME DEE HD RIE HE MM III 
610 PRINT"¿CONOCES LAS EQUIVALENCIAS DE LAS UNIDADES DE LONGITUD, " 

£20 PRINT"CAPACIDAD Y MASA?" 
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530 PRINT"SI CONSIDERAS QUE ES ASI, ATREVETE CON ESTE SENCILLO TEST.' 
640 PRINT"TENDRAS QUE ESCRIBIR LA EQUIVALENCIA DE LA UNIDAD QUE SE TE” 
650 PRINT"PREGUNTE; RECUERDA QUE HAY ALGUNAS SON DE LA FORMA 0.01" 

660 PRINT"ES DECIR, SON DE FORMA DECIMAL" 

£70 PRINT"TENDRAS QUE RESPONDER A DIEZ PREGUNTAS. AL FINAL RECIBIRAS" 
680 PRINT"LA CALIFICACION DE LA PRUEBA" 


690 LET R=0 

700 FOR 1=1 TO 10 

710 LET X=INT(RND(1)%21)+1 

720 PRINT“¿CUANTOS "sPS(INT((X-1)/7)47+4)5"S ES UN "¿Pg(X)5" "5 
730 INPUT"";RE 

740 IF RE=E(X) THEN PRINT "BIEN":LET R=R+1 

750 IF RE<>E(X) THEN PRINT "NO. LA RESPUESTA ES ";E(X) 

760 NEXT 1 ¡ 

770 PRINT“HAS TENIDO “¿R5" ACIERTOS" 

780 END 


1000 DATA KILOLITRO,K1,1000,HECTOLITRO,H1,100,DECALITRO,D1,10,LITRO,1,1 
1010 DATA DECILITRO,d1,0.1,CENTILITRO,c1,0.01,MILILITRO,m1,0.001 
1020 DATA KILOMETRO,Km, 1000,HECTOMETRO,Hm, 100,DECAMETRO, Dm, 10,METRO,m, 1 
1030 DATA DECIMETRO, dm,O.1,CENTIMETRO, em,0.01,MILIMETRO,mm, 0.001 
1040 DATA KILOGRAMO,Kg3,1000,HECTOGRAMO, Hg» 100, DECAGRAMO, Dg, 10,GRAMO, g, 1 
1050 DATA DECIGRAMO,dg,O. 1, CENTIGRAMO, cg,0.01,MILIGRAMO,mg,0.001 


Modificaciones para otros equipos 
SPECTRUM 


LINEA 100 DIM P$ (21,10), A$ (21,2), E(21) 
LINEA 780 STOP 


COMMODORE 
LINEA 200 PRINT CHR$ (143): 
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PEQUEÑA HISTORIA DE LA INFORMATICA 


Los modelos 7044 y 7090 de IBM 


BM era YA en los años se- 
senta una gran empresa 
multinacional, líder en el 
campo de la informática. 
Nada tiene, pues, de extra- 
ño que uno de sus principa- 
les clientes fuera el Ministe- 
rio de Defensa de los Esta- 
dos Unidos de América, con el que merecía la 
pena esforzarse en el cumplimiento de los 
contratos. La realidad es que pagaban seguro 
y sin especiales complicaciones, y se les po- 
día considerar un campo sin límites, ya que 
cualquier labor experimental, por cara que 
fuere, si alcanzaba algún objetivo podía ser 
vendida sin especiales problemas a alguno de 
los Organismos relacionados con dicho Minis- 
terio. 

En 1958 el Ministerio de Defensa de los 
Estados Unidos solicitó de IBM una máquina 
específica para el proceso de los datos obte- 
nidos en el Sistema de Defensa Antimisiles 
BMEWS (Ballistic Missile Early Warning 
System). Aunque el contrato era muy intere- 
sante, IBM no se encontraba en una buena si- 
tuación, ya que dada la importancia del uso 
que pensaba darse al ordenador, existían 
cláusulas con penalizaciones serias para el 
caso en el que no se cumplieran fechas o es- 
pecificaciones. El ordenador debería ofrecer 
un nivel de prestaciones muy superior a los 
que presentaban los ordenadores que ofrecía 
IBM en aquel momento, y para ello, natural- 
mente, exigirían mucha experimentación y 
desarrollo, traduciéndose todo ello en tiempo, 
del que IBM andaba verdaderamente escaso 
en esa ocasión. En algo más de un año, IBM de- 
bía disponer de los equipos, con lo que el tra- 
bajo debería realizarse a contrarreloj, y, por 
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otro lado, la gran empresa tampoco podía 
comprometer su prestigio fallando. 

El laboratorio de desarrollo aconsejó 
basar el nuevo producto en el 709, que pare- 
cía disponer de características aceptables, 
aunque, desde luego, sería necesario mejorar- 
lo para conseguir que fuera más rápido, y po- 
siblemente también para obtener unas preci- 
siones mayores. 

Para lograr una mayor velocidad, era 
importante reducir el ciclo de base a menos 
de dos microsegundos, y ello mediante proce- 
sadores con circuitos transistorizados cuyas 
características de velocidad no eran en abso- 
luto fáciles de conseguir en esas fechas. 

IBM sabía desde la firma del contrato 
que no podría cumplirlo, pero estaba decidi- 
da a aceptar el desafío, y confiaba en poder 
salir del atolladero de alguna forma. Efectiva- 
mente, llegado el momento, como la instala- 
ción de la máquina debía realizarse en los lo- 
cales definitivos, y la puesta en marcha del sis- 
tema duraba algún tiempo, IBM envió sus má- 
quinas en fecha, junto con un “ejército de es- 
pecialistas" que irían puliendo poco a poco sus 
defectos, naturalmente, sin aceptarlos como 
debidos al propio ordenador, por principio. La 
puesta a punto de la máquina se había llevado 
a cabo en fábrica, y todos esos problemas 
"eran sólo los normales, debidos a adaptarla a 
las necesidades del usuario in situ”, 

Pero mientras la labor anterior se iba 
realizando, IBM se iba metiendo en más pro- 
blemas. Por un lado, ¿debía ofrecer a sus 
clientes el nuevo producto, casi sin probar, o 
era mejor esperar a pulir sus deficiencias, evi- 
tándose infinidad de problemas? La empresa 
no podía olvidar su parque de clientes, casi to- 
dos de alquiler, a los que había ofrecido, ofre- 
cía o debía ofrecer sus últimos modelos. Estos 
podían devolverle el antiguo 709 y pedirle el 
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nuevo TX, si aparecía en católogo. Pero el 
mercado es como un enorme grupo de juga- 
dores de mus. Si se descartan de las cartas 
malas, están dando al mismo tiempo otras 
oportunidades al contrario, de forma que 
siempre es importante saber cortar en el mo- 
mento adecuado, aunque las cartas de que se 
disponga no sean las óptimas. Si IBM no incluía 
el 709TX en catálogo, y se tomaba un tiempo 
adicional, otras compañías que estaban inves- 
tigando en productos similares le tomarían la 
delantera, y su magnífico contrato podía pasar 
a ser un mal negocio para la Compañía. 

IBM supo acertar en esta decisión. Se 
arriesgó e incluyó la máquina en catálogo, 
vendiendo cerca del medio centenar, lo que 
suponía un éxito considerable, dado el alto 
precio de los ordenadores, que superaban los 
dos millones de dólares. 

A pesar del éxito del 7090, y de la enor- 
me potencia económica de las empresas nor- 
teamericanas, lo cierto es que el mercado, 
aunque suficientemente grande, podría am- 
pliarse bastante más si las máquinas tuvieran 
un precio mucho más bajo. Naturalmente, lo 
que no podía hacer IBM es cobrar más al que 
más tiene, y menos al que menos puede. Pero 
sí podía partir del prototipo y recortar algu- 
nas de sus características para poder vender 
"otra" máquina, mucho más barata. La nueva 
máquina era el 7040, basada en el 7090, pero 
con ciertas restricciones, sobre todo en lo con- 
cerniente al manejo de direcciones, y regis- 
tros índice. A pesar de sus pequeños inconve- 
nientes, frente al 7090, dado el enorme abara- 
tamiento y las innegables cualidades de la má- 
quina, ésta tuvo una enorme aceptación. 

La idea de aprovechar diseños de or- 
denadores anteriores, en los que se habría in- 
vertido mucho dinero para modificarlos para 
alguna tarea específica, como se ve, no es nue- 
va en absoluto, pero, sin embargo, en la se- 
gunda generación va aplicándose cada vez 
más, Y así van apareciendo modelos pensados 
para uso científico, empresarial, militar, etc. 
Sin embargo, la segunda generación de orde- 
nadores se caracteriza principalmente por la 
aparición de grandes sistemas centralizados, 
en contraposición a lo que hoy en día conoce- 
mos: grandes sistemas, redes, pequeños y me- 
dianos sistemas, microordenadores para mul- 
titud de tareas, etc. En los años cincuenta o se- 
senta, los informáticos eran generalmente ma- 
temáticos, personas que trabajaban en despa- 
chos «perdidos» de organismos estatales o pa- 
raestatales, de los que el grupo más importan- 
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te solía tener algo que ver con el Ejército. Al 
ir avanzando en el tiempo, el informático pasa 
a despachos de grandes compañías, pero su 
trabajo sigue siendo oscuro a los ojos de los 
demás. Ya no tiene por qué ser un matemáti- 
co, pero sigue muy ligado al hardware de la 
máquina. Poco a poco, sin embargo, la infor- 
mática se va desarrollando y perdiendo sus 
cualidades esotéricas para ir interesando más 
y más al público. Pero no nos perdamos, vol- 
vamos a la segunda generación de ordenado- 
res, para citar a un ordenador muy especial, 
el PDP1, una de las mejores máquinas del mo- 
mento, y además el primer ordenador que dis- 
puso de pantalla gráfica. El PDP1 era un pro- 
ducto de Digital Equipment Corporation, firma 
creada en 1962 por los hermanos Olson y Har- 
land Anderson. Ken Olson, uno de los funda- 
dores, había trabajado en el MIT (Massachus- 
sets Institute of Technology) en el proyecto 
Whirlwind, y estaba absolutamente convenci- 
do de que trabajando con seriedad, invirtien- 
do el tiempo necesario para que los produc- 
tos salieran absolutamente probados, podrían 
ir poco a poco ganándose un prestigio en el 
mundo de los ordenadores. El PDP1 había sido 
diseñado por Olson para trabajar en tiempo 
real, y a su rapidez de proceso se unía un sis- 
tema muy eficaz de acceder a la memoria. El 
PDP1 era una máquina relativamente cara, 
comparada con lo que existía en el mercado, 
de forma que sólo fue vendida para tareas 
muy específicas de investigación, etc. A pe- 
sar de las innegables ventajas que presenta- 
ba la pantalla de gráficos, en uno de los mo- 
delos posteriores, el PDP4, ésta fue eliminada. 

Otra máquina, basada en prototipos an- 
teriores, pero pensada para objetivos distin- 
tos, fue el 1401 IBM. Este ordenador se había 
diseñado pensando específicamente en el 
mercado de las empresas, por entonces infor- 
matizadas a un nivel muy bajo (lectoras de fi- 
chas y otras máquinas de oficina) o incluso sin 
ninguna mecanización en absoluto, El ordena- 
dor base, del que había partido el 1,401 era el 
702, pero se había modernizado bastante, y se 
ofrecía a un precio bajísimo, con el fin de abrir 
mercado en el mundo empresarial. La IBM 
consiguió efectivamente introducirse, y ven- 
dió más de diez mil ordenadores de esta 
gama. Incluso sacó otros dos modelos poste- 
riores, de mejores características (sobre todo 
más rápidos), el 1440 y el 1460. 

Del 1401 se ofrecían varias versiones, 
algunas de las más simples con una unidad de 
entrada/salida consistente únicamente en una 


lectora de fichas perforadas, y, por supuesto, 
reduciendo memoria y sistemas de almacena- 
miento al mínimo. Naturalmente, el usuario 
siempre podría mejorar el equipo, adquirien- 
do discos, o cintas magnéticas, otras unidades 
de entrada/salida más sofisticadas, etc. 

Como ordenador pensado para uso 
científico, el más representativo de su época 
fue el CAB 500, ordenador francés muy origi- 
nal, fabricado por la compañía SEA. 

Una de las características especiales de 
este ordenador es que no era demasiado vo- 
luminoso, ni requería condiciones de tempe- 
ratura y humedad muy críticas, lo que lo ha- 
cía muy adaptable a cualquier entorno de ofi- 
cina. 

El CAB 500 era original en muchos as- 
pectos, Disponía de dos sistemas de entrada 
de datos. Uno mediante lectora de fichas per- 
foradas (la lectora era semejante a las de los 
teletipos) y otro simplemente a través del te- 
clado. La salida se realizaba utilizando fichas 
o cinta perforada que eran leídas e impresas 
mediante un teletipo. El sistema de comunica- 
ción del usuario a través del teclado, hoy en 
día tan utilizado, supuso un enorme avance, 
hizo los ordenadores mucho más accesibles, 
tanto si el usuario era un experto en progra- 
mación, como si no lo era tanto. 

Otra de las características muy espe- 
ciales del CAB 500 es que podía microprogra- 
marse, es decir, el usuario podía modificar los 
microprogramas del ordenador. El hecho de 
que los microprogramas que controlan las fun- 
ciones básicas del ordenador puedan ser mo- 
dificables (y no sólo los programas de aplica- 
ción que sobre estos microprogramas funcio- 
nan normalmente) exige el diseño de una ar- 
quitectura del procesador diferente y suma- 
mente original. Los microprogramas del CAB 
500 estaban almacenados en los tambores 
magnéticos, junto con los restantes programas 
normales, de forma que unos y otros se podían 
utilizar sin problemas. El CAB 500 era un or- 
denador de vanguardia en el momento de su 
aparición. En efecto, resultaba muy flexible el 
que estuviera microprogramado y se pudiera 
a su vez microprogramar. De este ordenador 
se vendieron unas cincuenta máquinas, pero 
desgraciadamente, esta firma francesa desa- 
pareció del mercado poco después. 

La microprogramación durante los años 
cincuenta era una característica bastante poco 
común. La razón fundamental para que así fue- 
ra era principalmente técnica. Como las mi- 
croinstrucciones o instrucciones elementales 


51 


residían en la memoria del ordenador, y la ta- 
rea de la unidad de control se reduce en este 
caso a la transferencia de control de un regis- 
tro a otro, el tiempo de acceso a la memoria 
debe ser relativamente corto, porque si no, 
para cualquier operación sencilla, se perdería 
un tiempo enorme en las lecturas. Por esta ra- 
zón, hasta que no se comercializaron las me- 
morias de toros de ferrita, cuyos tiempos se 
acceso mejoraron bastante, no era en absoluto 
útil disponer de la facilidad de microprogra- 
mación. 

Las casas fabricantes comenzaron, a 
preocuparse de la microprogramación por ra- 
zones, como siempre, económicas. La compa- 
tibilidad entre sus máquinas era un problema 
constante. Por ello, muchas casas comenzaron 
a desarrollar unos programas "emuladores", o 
microprogramas, que "imitaban" el comporta- 
miento de otra máquina cualquiera, realizan- 
do las operaciones en código máquina, de for- 
ma que ordenadores de distintas firmas pudie- 
ran trabajar con programas de otros ordena- 
dores. 

El Honeywell 800 podía microprogra- 
marse perfectamente para emular el IBM 1401. 
De este modo, cuando la IBM se decidió a eli- 
minar esa gama y pasar a la 360, la Honeywell 
ganó innumerables clientes para los que re- 
sultaba mucho más sencillo comprar un Ho- 
neywell 800 con su emulador que cambiar 
toda la documentación, o al menos parte de 
ella. 


¿Sabía usted que... 


Wienner fue el padre de la Cibernética? 


En 1948 Norbert Wienner, uno de los científi- 
cos teóricos más importantes de nuestro siglo, publi- 
ca en París un libro titulado Cybernetics or Control 
and Communication in the Animal and the Machine. El 
libro, pese a haber aparecido en París, está escrito 
en inglés. Wienner era un intelectual muy sincero y 
honrado en sus concepciones, Era una persona muy 
especial, del que existen numerosísimas anécdotas, 
casi todas ellas relacionadas con su despiste, que po- 
día llegar a niveles difícilmente creíbles. En muchas 
ocasiones, estando en clase, se le ocurría alguna idea 
original, y al seguirla en su pensamiento, llegaba a ol- 
vidarse de que los alumnos seguían esperando que 
continuara la clase que les estaba impartiendo. Un día 
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un amigo se lo encontró caminando por la calle en pi- 
jama. Wienner estaba dándole vueltas a un proble- 
ma, y no sabía ni por qué calle circulaba. El padre de 
la Cibernética era una persona encantadora. Á pesar 
de su enorme valía, no estaba en absoluto pagado de 
sl mismo, Tenía una bien ganada fama de honrado y 
leal, y no aceptaba honores ni prebendas como re- 
compensa de su trabajo. Siendo profesor de Matemá- 
ticas del MIT (Massachussets Institute of Technology), 
estaba muy interesado por el progreso de la técnica, 
y feliz de desarrollar su trabajo con sus alumnos, que 
disculpaban sus enormes despistes. 

Durante la segunda guerra mundial, Wienner 
trabajó para la Armada de los Estados Unidos, como 
muchos otros matemáticos, Recordemos lo necesita- 
do que estaba el Gobierno Americano de personal 
para el cálculo de trayectorias, y lo lenta que era la 
tarea. En su aproximación a las armas, Wienner com- 
prendió que todos los avances y descubrimientos que 
se llevaran a cabo en la industria de armamento se 
acabarían por aplicar, tarde o temprano. Los políticos 
utilizan siempre a los científicos, y todos los avances 
técnicos en el campo militar serían terribles retroce- 
sos para la Humanidad. 

Wienner y Von Neumann trabajaron juntos un 
corto periodo de tiempo, pero eran dos personalida- 
des totalmente distintas, y Wienner comprendió rá- 
pidamente que nunca llegaría a formar un equipo 
compacto con Von Neumann. Es cierto de Von Neu- 
mann era una persona afable y muy agradable, pero 
desde su llegada a los Estados Unidos estuvo siem- 
pre implicado en algún sentido con temas militares 
de defensa. En sus primeros años, se ocupó princi- 
palmente del desarrollo de las nuevas máquinas u or- 
denadores que realizaban los cálculos, y en los últi- 
mos años de su vida, estuvo relacionado muy estre- 
chamente con el proyecto de desarrollo de la bomba 
atómica. Wienner era absolutamente distinto. Había 
reflexionado mucho sobre los últimos avances técni- 
cos, que iban sucediéndose a velocidad vertiginosa y 
había llegado a dos convencimientos íntimos muy im- 
portantes; jamás estos nuevos descubrimientos debe- 
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rían utilizarse para dominar o destruir, y jamás se de- 
berían diseñar armas, con fines en principio disuaso- 
rios, pues tarde o temprano éstas se utilizarían. Para 
controlar este último punto, Wienner consideraba 
muy útil la creación de unos comités de control de 
los que formaran parte científicos, con el fin de regu- 
lar el uso dado a las armas que ellos habían ayudado 
a diseñar. 

Wienner era un gran pensador. Desde la publi- 
cación de su libro Cybernetics, estaba muy ocupado 
escribiendo otro, que intentaba unificar temas disper- 
sos, relacionándolos siempre con dos directrices 
maestras: el control y la comunicación, Su segundo li- 
bro, Cybernetique et Societe, fue tan revolucionario y 
nuevo como el primero, aunque estaba en cierto 
modo basado en él. 

Wienner estaba interesado en estudiar el con- 
trol de los procesos, Este control podía darse tanto en 
fenómenos naturales como artificiales, tanto en huma- 
nos y animales como en máquinas, e incluso en pro- 
cesos sociales, mucho más amplios, A la ciencia que 
estudiaba estos campos, sin desarrollar por el mo- 
mento, Wienner denominó Cibernética, palabra que 
deriva de la palabra griega cuyo significado es pilo- 
to. Partiendo de estas ideas sobre el control y el go- 
bierno de los procesos, se podía pasar a estudiar el 
fenómeno de la "toma de decisiones”, Esto último era 
válido tanto en la política como en la economía, o en 
otras ciencias sociales. 

Poco después, con esta nueva concepción filo- 
sófica los grandes científicos del momento comenza- 
ron a interesarse sobre los lenguajes, e incluso sobre 
el conocimiento, 

Paralelamente a estos estudios de tipo filosófi- 
co, en los Estados Unidos, un neurofisiólogo llamado 
McCulloch utilizaría la Cibernética para la creación 
de modelos artificiales que copiarían los esquemas 
de razonamiento humano, en suma, el esquema cere- 
bral del hombre. 

Durante un tiempo, la Cibernética parecía no 
interesar a los padres del ordenador. En fechas ac- 
tuales ha recobrado toda su vigencia, 
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Aplicaciones del proceso 
de imágenes en la industria 


UNQUE hace ya bastante 
tiempo (más de 25 años) que 
se están procesando imáge- 
nes mediante ordenador, 
sus aplicaciones prácticas 
en la industria (no a nivel de 
laboratorio), no tienen ni 
mucho menos esa edad. La 
razón principal de este retraso se debe a que 
para que una aplicación cualquiera de proce- 
so de imágenes sea aceptada por la industria, 
es necesario que aporte soluciones de una 
precisión suficiente, y a enorme velocidad 
(para su aplicación en tiempo real), y este ni- 
vel técnico sólo se obtenía (hace unos años) a 
unos costes ciertamente prohibitivos. Los mé- 
todos alternativos son mucho más conocidos, 
accesibles para el industrial que sin ser un es- 
pecialista en informática deberá tomar la de- 
cisión. En efecto, el beneficio debe ser claro y 
directo, como, por ejemplo, una evidente re- 
ducción de los costes de producción, etc., o la 
aplicación de proceso de imágenes será re- 
chazada siempre, o casi siempre, por razones 
económicas. También puede suceder que, 
aunque el beneficio no sea tan directo, el sis- 
tema mejore las condiciones de trabajo de los 
empleados, y, éstos, al trabajar más relajados, 
obtengan rendimientos más altos. Un tercer y 
último caso, no tan probable, es el empresa- 
rio, aficionado a la informática, con deseos de 
estar mecanizado con tecnología punta, que 
quiera destacarse de los demás y dar algún 
otro pequeño servicio extra, aunque esto le 
cueste algún dinero más. 

Efectivamente, la viabilidad económica 
de las aplicaciones de proceso de imágenes 
también ha estado en tela de juicio en otros es- 
tamentos distintos del industrial, aunque en 
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ellos, el capítulo económico tenía y tiene siem- 
pre menos importancia que en el industrial. En 
este último, la rentabilidad es su motor y su ra- 
zón de ser. Un ejemplo fácil de cómo las ins- 
tituciones estatales tienen una visión muy dis- 
tinta lo tenemos en el campo de la medicina. 
La Seguridad Social comprará aparatos caros 
que resuelvan problemas médicos adecuada- 
mente ayudando a salvar vidas, sin conside- 
rar tanto su precio. No debemos, sin embargo, 
olvidar otros campos en los que también estas 
aplicaciones se ven desde un prisma distinto 
al comercial, como, por ejemplo, el militar (re- 
conocimientos aéreos), en cartografía, astro- 
nomía, química, etc., la televisión, que puede 
recurrir a muchas de estas aplicaciones. El re- 
conocimiento de caracteres, la transmisión de 
imágenes, su grabación, y posterior análisis, 
son utilísimos en muchos campos. Es, pues, 
claro que el inconveniente mayor para adop- 
tar estas aplicaciones suele ser su coste. Sin 
embargo, en la industria existen muchas ta- 
reas para las que el proceso de imágenes pue- 
de suponer beneficios tan obvios y evidentes 
que el número de industrias que han adopta- 
do este tipo de aplicaciones desde su apari- 
ción ha ido aumentando casi sin pausa. 

Siguiendo los pasos de la industria in- 
formática y electrónica, las aplicaciones de 
proceso de imágenes por ordenador han ido 
bajando de precio, de forma que su viabilidad 
ha ido creciendo con el tiempo. A ello ha con- 
tribuido el bajo coste de ordenadores cada 
vez más potentes, capaces de realizar accio- 
nes que hace unos años sólo máquinas de cier- 
to volumen podían realizar. 

Considerando el proceso de las imáge- 
nes desde el punto de vista de la industria, po- 
dríamos clasificarlas en dos grupos generales: 
uno de ellos en el que el proceso de las imá- 
genes por ordenador viene a ser una especie 
de sustitución de la visión humana, y otro, en 
el que podría sustituir algunas tareas de tra- 
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tamiento de gráficos. Al primer grupo se sue- 
le designar como visión por ordenador, y al- 
gunas de las tareas que realiza han sido (o po- 
drían haber sido) realizadas por una persona 
humana. Al segundo grupo, que está crecien- 
do mucho en estos últimos años, podríamos re- 
ferirnos como el proceso de fotografías, y otras 
imágenes o gráficos de tipo artístico. En el 
campo de la fotografía, por ejemplo, los méto- 
dos ópticos están siendo sustituidos por pro- 
cesos realizados en un ordenador, sobre todo 
en ciertos entornos, como el militar, cartográ- 
fico, etc. 

En lo que respecta a la visión artificial, 
o visión por ordenador, podríamos dividirla en 
cuatro grupos diferenciados: por un lado, los 
robots, o máquinas capaces de "ver", 2) tareas 
de inspección, 3) conversión de trazados con 
líneas, y finalmente 4) modelismo de objetos. 
De estos cuatro grupos, los dos primeros apar- 
tados tienen una enorme importancia. En todo 
caso, la razón de ser para cada uno de estos 
grupos es la sustitución de una tarea que im- 
plique visión humana, bien porque la tarea 
deba realizarse en condiciones peligrosas, o 
insanas, agotadoras, etc. 

Al referirnos aquí a las aplicaciones in- 
dustriales del proceso de imágenes, es útil re- 
cordar que existen diferencias sustanciales 
entre el campo industrial y otros campos. En 
la industria se aquilata cuidadosamente la in- 
versión, y las imágenes obtenidas tienen siem- 
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pre el grado de bondad mínimo necesario 
para cada aplicación. Generalmente, las apli- 
caciones complejas requieren ordenadores 
costosos, y, aunque algunas pueden realizar- 
se en ordenadores pequeños (PC y compati- 
bles), el tiempo necesario en estos casos es 
muy superior, incidiendo, naturalmente, en el 
coste de la aplicación. 

Además, para que la calidad de las imá- 
genes sea buena, aceptablemente libre de rui- 
dos e interferencias, se hace imprescindible 
controlar exquisitamente la posición de la cá- 
mara en el entorno, y sobre todo la ilumina- 
ción. Esta última, si se estructura adecuada- 
mente, puede simplificar enormemente la in- 
terpretación de las imágenes. En cuanto a la 
resolución, normalmente se utilizan valores de 
256 x 256 Ó 512 x 512 pixels, por comodidad de 
proceso en el ordenador. 


El manejo de objetos o materiales 


...., 


mediante visión por ordenador 


Es una de las aplicaciones de visión ar- 
tificial más importantes en la industria. La ta- 
rea a realizar podría subdividirse en tres ope- 
raciones: a) identificación del objeto dentro de 
un conjunto de objetos sin clasificar, b) deter- 
minación de la posición del objeto dentro de 
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un espacio bi o tridimensional, y c) determi- 
nación de la orientación de objeto. Por otro 
lado, éste puede estar estático o en movimien- 
to, Es fácil suponer que c) es el paso más di- 
fícil, ya que el objeto puede tomar en princi- 
pio cualquier posición y orientación dentro del 
espacio que se considera, e incluso puede es- 
tar «tapado» por otros objetos que se encuen- 
tren delante de él, 

No todas las aplicaciones requieren la 
misma «calidad» de imagen, ni siquiera deben 
cumplir las tres operaciones anteriores. Re- 
cordemos que en las aplicaciones industriales 
manda el dinero, y, si la tarea no es impres- 
cindible, y es susceptible de ser eliminada, el 
coste de la aplicación puede reducirse consi- 
derablemente. Así, existen muchas aplicacio- 
nes en las que la orientación no es imprescin- 
dible, o incluso la posición del objeto (piénse- 
se, por ejemplo, en una central lechera con 
una cadena de botellas de leche de las que se 
desea inspeccionar si están en buenas condi- 
ciones o tienen alguna lacra, con el peligro de 
que se rompan). Es evidente, que en este caso, 
la identificación del objeto no tiene sentido al- 
guno, ya que todas son botellas de leche prác- 
ticamente idénticas. En otras cintas de trans- 
porte, los objetos pueden haber sido coloca- 
dos por otra máquina o por personal de una 
manera precisa, de forma que no se requiera 
en absoluto averiguar la posición y orientación 
del objeto, que serán siempre fijas. El caso 
más sencillo se da cuando el objeto se depo- 
sita de forma estable sobre una superficie o 
cinta, y el más complicado, cuando se encuen- 
tra «revuelto» entre un montón de objetos de 
cualquier tipo, y, por tanto, su posición y orien- 
tación puede ser cualesquiera. Naturalmente, 
este caso extremo se suele evitar (se intenta 
resolver por otros medios) ya que encarece 
sobremanera la aplicación de visión por orde- 
nador. 

Las aplicaciones de visión por ordena- 
dor intentan, pues, siempre simplificar al 
máximo el problema, obteniendo sólo los da- 
tos que son imprescindibles, y olvidando los 
demás. Es frecuente que se diseñen para el 
manejo de objetos rígidos y pesados, que se 
desean desplazar, almacenar, etc. Sin embar- 
go, existen multitud de sistemas que realizan 
tareas casi inimaginables, como, por ejemplo, 
la localización e identificación de los cables de 
un equipo o componente eléctrico. Un ejem- 
plo mucho más típico, sin embargo, es el sis- 
tema CONSIGHT de General Motors, que con- 
siste en líneas generales en una fuente lumi- 
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nosa que ilumina con un ángulo determinado 
la cinta transportadora donde se encuentran 
los objetos. El sensor (la cámara que capta las 
imágenes) está colocado verticalmente, sobre 
la cinta, justo encima del punto donde el rayo 
luminoso incide en ésta. Por este sistema, con 
el paso de un objeto bajo la luz, el haz se dis- 
torsiona de un modo proporcional a la altura 
del objeto que lo ha distorsionado. Con este 
sistema, la cámara obtendrá información tanto 
de la forma del objeto, como de su altura, El 
CONSIGHT se ha utilizado con bastante éxito 
para muchas aplicaciones en las.que es nece- 
sario manejar materiales e identificar su posi- 
ción y orientación en el espacio. 

Otro tipo de aplicaciones de visión por 
ordenador típicas de la industria se ocupa de 
controlar movimientos. Las aplicaciones perte- 
necientes a este segundo grupo intentan re- 
solver dos problemas fundamentales: el con- 
trol de la trayectoria y evitar colisiones. Al pri- 
mer grupo de actividades pertenecería, por 
ejemplo, el caso en el que se «guía» un vehí- 
culo o un brazo según una trayectoria especi- 
ficada mediante marcas que el brazo o el ve- 
hículo deben reconocer. La aplicación de con- 
trol de vehículos que deben circular por una 
trayectoria determinada es una aplicación 
muy compleja, y resuelta casi únicamente a ni- 
vel de laboratorio, pero día a día se va avan- 
zando. A nivel muy elemental, existen, sin em- 
bargo, aplicaciones que realizan este tipo de 
tareas. 

El segundo objetivo de este grupo de 
aplicaciones de visión artificial consiste «sim- 
plemente» en que el sistema evite posibles co- 
lisiones del objeto que consideramos con otros 
objetos, identificados, o sin identificar. Este 
problema, sin embargo, es más sencillo que el 
anterior, ya que se trabaja con menos libertad, 
siendo la trayectoria conocida. Como acaba- 
mos de decir, si el entorno de experimenta- 
ción se encuentra acotado, el problema se sim- 
plifica enormemente. De hecho, existen algu- 
nos sistemas de este tipo que están funcionan- 
do en la industria con bastante éxito. 

La complejidad a que puede llegarse 
con este tipo de aplicaciones es infinita. En es- 
tas ocasiones, la velocidad de proceso de las 
imágenes obtenidas es un factor fundamental, 
Por ello, de tales imágenes sólo se extraerán 
aquellas características que sean imprescindi- 
bles para obtener la información necesaria. No 
debemos olvidar que tanto los objetos como la 
iluminación, como el sensor o la cámara pue- 
den, a su vez, estar moviéndose. 


TEMAS MONOGRAFICOS DE VANGUARDIA 


Aplicaciones en control de calidad 


Este tipo de aplicaciones tienen un fu- 
turo fantástico, Se trata fundamentalmente de 
comparar el objeto a inspeccionar con un ob- 
jeto patrón, buscando que concuerde con él 
con el margen de error establecido, Con ello 
se obtiene mayor precisión y homogeneidad 
que si la operación se llevara a cabo por me- 
dios humanos, además de eliminar al operario 
que lleva a cabo este control. La comparación 
con el objeto patrón se lleva a cabo en la tota- 
lidad del objeto, o sólo en aquellas zonas o ca- 
racterísticas que interesen. En el control de 
calidad, la resolución seleccionada es un fac- 
tor importante (en ocasiones la imagen debe 
ser ampliada sustancialmente). Pero al selec- 
cionar la resolución, debe considerarse que si, 
por ejemplo, ésta excede 1k por línea, será im- 
posible utilizar una memoria de imagen y, por 
tanto, deberá recurrise a un scanner o anali- 
zador de líneas, cuyo precio, hasta hace muy 
poco, encarecía enormemente la aplicación. 
Debemos decir, sin embargo, que los últimos 
scanners tienen precios mucho más acepta- 
bles, por lo que en estas fechas se puede tra- 
bajar con excesos de resolución de 2k, 

Las aplicaciones para el control de ca- 
lidad son de enorme importancia. Es frecuen- 
te que estén relacionadas con la seguridad. No 
se trata simplemente de que falle y se rompa 
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el casco de una botella de vino; pensemos, por 
ejemplo, en el control de imperfecciones de 
las cubiertas de caucho de los automóviles, 
detección de fallas en turbinas de aviones, en 
la propia estructura del avión, etc. Otras apli- 
caciones, no relacionadas con la seguridad, 
pueden ser el control de calidad de tejidos, 
soldaduras de circuitos, comprobación de fi- 
lamentos de bombillas, etc, Cada aplicación 
ha sido diseñada a medida para que pueda 
acomodarse a las necesidades concretas de 
cada caso, indicando la precisión admisible, 
junto con las cualidades o características que 
se van a analizar. 

El ensamblaje de piezas es también otra 
actividad en la que la visión artificial tiene mu- 
cho que hacer. En empresas pequeñas, este 
ensamblaje y soldado se realiza manualmen- 
te, pero en las de gran volumen, las operacio- 
nes se realizan automáticamente por máquinas 
herramientas (robots), que, en muchos casos 
en los que la acción no es simplemente repe- 
titiva, necesitan de la visión artificial para rea- 
lizar su tarea. Los sistemas existentes son muy 
caros y complejos. De hecho, es una de las ta- 
reas que requiere procesar más información 
(control del movimiento, inspección, manejo 
etcétera). Estas aplicaciones, por su enorme 
complejidad, siguen perfeccionándose en los 
laboratorios de desarrollo. Sin embargo, los 
grandes fabricantes de automóviles disponen 
ya de sistemas de este tipo para pequeños en- 
samblajes (motores y bombas eléctricas, etc.). 
Dada la complejidad de los sistemas (requie- 
ren varias cámaras, algunas de las cuales sue- 
len ser móviles, otros tipos distintos de senso- 
res-táctiles, etc.) sólo grandes compañías pue- 
den permitirse disponer de ellos, siendo ade- 
más, por el momento, menos útiles que en 
otras aplicaciones. 

Terminaremos indicando que la ten- 
dencia del mercado de aplicaciones de visión 
artificial o visión por ordenador es simplificar 
al máximo los requerimientos. Es necesario es- 
tudiar exhaustivamente la tarea a realizar, 
para no enterrar recursos en algo a lo que a 
penas si se le va a sacar partido. Las aplica- 
ciones de este tipo requieren el proceso de 
mucha información, y todos los recortes que 
se puedan realizar en ésta serán en provecho 
de la propia aplicación. 


TERMINOLOGIA 


Algoritmo. Conjunto de reglas cuya aplica- 
ción permite llegar a un objetivo computa- 
cional dado. Por ejemplo, puede utilizarse 
un algoritmo para eliminar las líneas o las 
superficies ocultas, relleno de superficies, 
eliminando de ruidos de fondo, realzado de 
bordes, etc., 


Alisamiento. En gráficos, cuando el disposi- 
tivo de presentación intenta llegar a deta- 
lles que exceden el poder de resolución del 
sistema. Suele llamarse también efecto es- 
calera, ya que los bordes no aparecen rec- 
tos, sino formando líneas con escalones. Este 
efecto es mucho más evidente en sistemas 
de baja resolución: en los sistemas con ma- 
yor definición puede elminarse mediante 
técnicas anti-alisamiento. 


Animación. Técnicas para conseguir un 
cambio o movimiento de forma continua, 
imitando el modo en que se produce en el 
mundo real. Estas técnicas utilizan conjun- 
tos de imágenes muy semejantes que se 
proyectan a una velocidad tal que el ojo hu- 
mano no puede percibir el cambio de una a 
otra, y el movimiento le parece continuo. 
Los proyectores de cine de 8 mm. suelen 
ser de 18 ó 24 imágenes por segundo, y los 
de 16 mm. siempre proyectan a 24 imáge- 
nes por segundo, velocidad que ya ha sido 
adoptada por la práctica totalidad de las ca- 
sas fabricantes. 


Antialisamiento. Técnica de localización de 


los errores de alisamiento introducidos por 
los sistemas discretos. Así, los bordes esca- 
lonados se pueden suavizar filtrando las in- 


tensidades de los pixels donde se produce 
la discontinuidad, para que los cambios de 
color resulten más suaves. 


Brillantes, superficies. Superficies que re- 


sultan altamente reflectantes de la luz, Este 
efecto se puede conseguir mediante la in- 
clusión de un parámetro “de brillo", algorit- 
mos de cálculo del haz de luz que se refleja 
sobre una superficie. 


Brillo. Está relacionado con la intensidad lu- 


minosa. Esta es directamente proporcional 
a la potencia de la fuente de luz e inversa- 
mente al cuadrado de la distancia del ob- 
servador a dicha fuente luminosa. Sin em- 
bargo, el brillo, aunque está relacionado 
con la intensidad luminosa, depende a su 
vez de la zona iluminada, y su orientación. 
Es frecuente suponer (para abordar un pro- 
blema de visión por computador) que las su- 
perficies convencionales reflejan la luz del 
mismo modo en cualquier dirección del es- 
pacio, y también que la fuente luminosa está 
suficientemente alejada del objeto proble- 
ma como para que los cambios en sus dis- 
tintas zonas son prácticamente insignifican- 
tes. Para averiguar el brillo existente en un 
punto cualquiera con las suposiciones ante- 
riores, basta saber la intensidad del foco lu- 
minoso, y el ángulo de incidencia del haz 
de luz. 


Cara oculta. Siempre que exista una colec- 


ción de objetos, visualizaremos un conjunto 
de caras de dichos objetos. Sin embargo, las 
leyes físicas nos impiden ver todas las face- 
tas. En muchos casos, estos lados ocultos no 
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interesan en la imagen, por lo que se pue- 
de evitar dibujarlos. Para eliminar dichas 
caras, se aplica un algoritmo determinado, 
obtenido a partir de la ecuación del plano 
de dicha superficie, o mediante el vector 
normal a dicho plano. 


plano posterior 
plano de imagen 


— == > 


Tano aos “ojo del observador” 


Fig. 1. Volumen de recorte (“clipping volume”) para una repre- 
sentación tridimensional (es el tronco de la pirámide compren- 
dido entre los planos anterior y posterior). 


Clipping (recorte). Eliminación de los ele- 
mentos de la imagen que "caen" fuera del 
"volumen de recorte" (“clipping volume”) for- 
mado en la pirámide de visión por los pla- 
nos anterior y posterior del campo a repre- 
sentar. (Véase dibujo). 


Coherencia. Cuando se aplica un algoritmo 
para eliminar las caras ocultas, éste puede 
aplicarse por ejemplo dividiendo la imagen 
en tiras horizontales, y analizando las condi- 
ciones de dicha tira (intersecciones, etc.). 
Una vez se ha detectado que un determina- 
do objeto tapa a otro, no es necesario reali- 
zar los cálculos para otras tiras siguientes. 


Cono de visión. Campo visual. Se considera 
un punto fijo donde supuestamente se en- 
cuentra el ojo del espectador, Por la estruc- 
tura del ojo humano, sólo se pueden ver ob- 

* « jetos que se encuentren en un ángulo de 60 
grados por encima y debajo de la línea vi- 
sual (la que va del ojo al punto central ob- 
servado). Por tanto, sólo se puede ver (sin 
distorsión) los objetos que se abarcan con 
un ángulo de 100 a 120 grados con vértice 
en el “ojo del observador" este es el cono de 
visión. Naturalmente, en la pantalla plana 
del dispositivo de presentación visual no 
existe esta limitación, pero hay que supo- 
nerla y tenerla en cuenta si se quieren pre- 
sentar imágenes realistas. 


Convexos, polígonos. Polígonos (formas 
cerradas por líneas rectas) cuyos ángulos 
internos entre dos líneas consecutivas son 
menores que 180 grados. 
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Coordenadas desde el observador. Las 


escenas tridimensionales pueden plasmar- 
se fácilmente creando un sistema de coor- 
denadas asociado a la posición del observa- 
dor. Para trazar los ejes, basta conocer la 
posición del observador y tomar otro punto 
de observación cualquiera. 


Cromaticidad. Si se examinan las distintas 


longitudes de onda correspondientes a un 
determinado color, podrá observarse que 
algunas son más intensas. La cromaticidad 
es el parámetro que describe la longitud de 
onda dominante para un determinado color, 
en otras palabras, su pureza. 


Difusa, iluminación. Existen técnicas espe- 


ciales para simular una iluminación difusa. 
Es un sistema para representar una ilumina- 
ción que proviene de más de una fuente lu- 
mínica. La cantidad de luz difusa que pue- 
de ver un observador depende de la inten- 
sidad de la fuente, el ángulo que forma con 
la superficie y del coeficiente de reflectan- 
cia de esta superficie. La posición u orien- 
tación relativa del observador no influyen 
en absoluto, por lo que este tipo de ilumina- 
ción produce un efecto "plano" que general- 
mente es necesario mejorar mediante re- 
flexiones especulares. 


Digitalizador. Dispositivo que convierte las 


imágenes analógicas en una información or- 
ganizada de forma y con valores digitales. 
El digitalizador divide la imagen en puntos, 
y envía una señal por cada uno de ellos (re- 
presentativa de la intensidad de luz existen- 
te en ese punto para cada uno de los colo- 
res básicos, si la imagen es en color). 


Digitalizar. Convenir una imagen en una 


matriz de valores a los que se encuentra 
asociada determinada información (la inten- 
sidad o intensidades en cada punto). 


Eliminación de las líneas ocultas. La in- 


formación relativa a una imagen se almace- 
na en forma de una matriz de valores, o me- 
diante algún algoritmo o ecuación. Sin em- 
bargo, al representarla, aparecerán tanto 
los puntos que se ven, como aquellos que 
deberían aparecer "tapados". Para ello se 
utilizan algoritmos, que miden el ángulo for- 
mado por la línea de visión del observador 
y el vector normal a la cara del objeto. Si 
este ángulo es superior a 90 grados, el ob- 


jeto no debe ser visible. Con este criterio, 
se deberán analizar todos los vértices y aris- 
tas, y si el objeto es irregular, ha de tener- 
se en cuenta a la hora de aplicar el algorit- 
mo). (Véase dibujo). 


Fig. 2. A la derecha se muestra el resultado de haber elimina- 
do las “lineas ocultas” de la imagen de la izquierda. 


Eliminación de superficies ocultas. Téc- 
nicas que eliminan de la imagen aquellas 
superficies que el observador no puede ver. 
Véase eliminación de líneas ocultas. Para la 
eliminación de superficies ocultas, existen 
numerosos algoritmos, algunos más senci- 
llos y menos eficaces, otros más complejos 
pero de mejores resultados. (Véase dibujo). 


Grabador de imágenes. Técnica de prepa- 
ración de las imágenes de vídeo para su 
proceso mediante ordenador. Para ello se 
conecta una cámara de vídeo a un digitali- 
zador que convierte la señal analógica de la 
cámara en señales digitales... En un momen- 
to dado, la señal digital puede mantenerse 
o "grabarse" y, ser manipulada a continua- 
ción. 
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Holograma. Técnica por la que se ilumina la 


escena mediante láser, y se hace que la luz 
reflejada impresione una placa fotográfica 
iluminada a su vez, con la luz original. Los 
patrones de las interferencias que se crean, 
forman el holograma. 


Memoria de imágenes (raster). Dispositi- 


vo que es capaz de almacenar una imagen 
monocroma o en color en forma de informa- 
ción de los pixels que la componen (imagen 
digital). En otro momento, mediante otro dis- 
positivo, la señal digital puede ser conver- 
tida en señal analógica y visualizada en. la 
pantalla. 


Parpadeo. Este se produce cuando la panta- 


lla no se renueva a una velocidad compati- 
ble con la persistencia de las imágenes en 
la retina del ojo humano. Esta persistencia 
de las imágenes es la que permite ver en el 
cine y televisión las imágenes continuas, no 
una tras otra... No existe ninguna velocidad 
óptima para el cambio de las imágenes, 
pues experimentos en este campo han mos- 
trado que depende del brillo, color, y con- 
trastes existentes en la imagen, entre otros 
factores. 


Pirámide de visión. Es la formada tomando 


como vértice el punto de vista del observa- 
dor y como base rectangular el espacio 
(plano) donde se proyectan las imágenes. 


Razón de aspecto. Relación entre la altura 


y anchura de una imagen. Para televisión, 
esta relación suele ser de 3:4. En cine, pue- 
de variar, dependiendo del formato, pero 
para películas de 35 mm. de 2:3. 


